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ABSTRACT 


The  REACT  II  computer  program  simulates  port  and 
shipping  operations  for  movement  of  cargo  by  sealift. 
Port  and  berth  characteristics,  ship  types  and  charac- 
teristics, cargo  types  and  amounts,  and  shipping  routes 
arj  input. 

Model  output  consists  of  cargo  generated  and  de- 
livered by  type  and  port,  ship  and  port  utilization,  and 
ship  operating  costs.  The  model  output  is  designed  to 
assist  the  logistics  analyst  in  assessing  shipping  and 
port  operations.  Output  summaries  for  each  port  Include 
its  use  by  each  ship  and  the  amount  of  cargo  that 
entered  and  left  thv'  port. 


SECTION  1 
INTRODUCTION 

A computer  simulation  model  known  as  REACT,  an  acronym  for  Requirement 

1* 

Evaluated  Against  Cargo  Xr&nsportation,  wa3  developed  by  Research 
Associates  Incorporated  for  the  Integrated  Sealift  Study  to  simulate  the 
movement  of  ships  transporting  cargo  among  ports.  The  purpose  of  REACT  was 
to  establish  the  interrelationships  among  the  number  and  types  of  ships  and 
their  delivery  patterns  and  schedules  in  sealift  operations  in  order  to 
satisfy  time-phased  cargo  requirements. 

As  new  applications  arose,  the  REACT  computer  program  was  modified, 
but  these  changes  were  never  fully  documented.  Consequently,  in  order  to 
interpret  REACT  results  accurately,  it  was  necessary  to  examine  these 
changes  and  to  make  corrections  and  additional  revisions  to  meet  current 
needs.  The  revised  version,  designated  REACT  II,  is  documented  in  this 
report  in  complete  form.  Individual  modifications  are  not  identified. 

This  report  describes  the  overall  operation  of  the  model  anO  its  sub- 
routines, its  system  characteristics,  input,  and  output.  A general  de- 
scription of  the  original  REACT  model  is  provided  in  Appendix  A. 


*A  complete  listing  of  references  is  given  on  page  99. 
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SECTION  2 

SYSTEM  CHARACTERISTICS 

2.1  OVERVIEW 

In  the  simulation  of  sealift  operations  with  the  REACT  II  model,  cargo 
is  generated  at  designated  ports  of  embarkation  (PCE's).  As  ships  arrive, 
the  cargo  is  loaded  and  the  ships  then  sail  to  destination  ports  where 
cargo  is  unloaded.  The  ships  then  sail  to  other  POE's,  loading  and  unload- 
ing ' lrgo  on  their  routes.  The  cycle  continues  until  all  the  cargo  hes 
been  delivered. 

Since  all  ports  cannot  accommodate  all  types  of  ships  and  all  ships 
cannot  accommodate  all  types  of  cargo,  restrictive  criteria  are  input  to 
the  simulation  model.  Figure  1 represents  the  interrelationships  of  ships, 
ports,  and  cargo  in  the  system.  The  intersections  of  two  circles  represent 
(a)  cargo  types  that  can  be  handled  ut  each  port,  (b)  cargo  types  that  can 
be  carried  by  each  type  of  ship,  and  (c)  ship  types  than  can  enter  each 
port.  The  intersection  of  all  three  circles  represents  (d)  ship  operations 
that  satisfy  all  input  conditions,  i.e.,  ships  carrying  acceptable  cargo 
loading  or  unloading  at  acceptable  ports. 

2.?  SHIP  CHARACTERISTICS 

2.2.1  Ship  Description 

Ships  are  defined  as  specific  types  according  to  the  following 
characteristics: 

* Cargo  types  the  ship  can  carry 

* Cargo  capacities  in  weight  (long  tons)  and  volume  (measurement 
tons) 

* Draft  at  full  load  (feet) 

* Sustained  speed  (knots) 

* Dally  costs  of  operation  in  port  and  at  sea  (dollars) 

* Transfer  system(s)  used,  with  an  adjustment  factor  for 
multitransfer  systems  (see  Cargo  Handling  Rates, 

Section  2.4.4) 
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• Port  berthing  preferences  (see  Berth  Selection  and 
Queue  Operation,  Section  2.3.2) 

* Capability  to  change  home  or  delivery  theater  when 

leaving  the  ahip  pool  (see  Ship  Pool,  Section  2.2.3) 

Initially  each  ship  in  the  system  Is  assigned  a ship  type,  a time  at 

which  it  becomes  available  to  transport  cargo,  and  a routing  schedule  which 
defines  the  group  of  ports  it  may  enter.  In  the  simulation  a ship  loads 
only  acceptable  cargo  destined  for  a port  which  meets  the  following  re- 
quirements: (1)  it  has  a facility  the  ship  may  berth  at,  (2)  it  is  on  the 

ship's  routing  schedule,  and  (3)  it  has  a depth  greater  than  the  ship's 
draft.*  The  ship  is  loaded  tc  80  percent  of  its  volume  capacity  unless 
that  amount  is  greater  than  its  weight  capacity,  in  which  case  the  ship  is 
loaded  to  its  weight  capacity. 

2.2.2  Ship  Routing 

The  model  allows  three  different  types  of  ship  routing.  A ship  as- 
signed an  itinerary  travels  to  ports  on  a pre-determlned  route.  An  itiner- 
ary is  defined  as  an  ordered  set  of  not  more  than  ten  ports.  The  model  can 
accommodate  ten  itineraries. 

Ships  not  assigned  itineraries  travel  to  theaters  where  cargo  is 
available.  A theater  is  a group  of  ports  in  a geographical  area.  A non- 
itinerary ship  may  be  either  an  intratheater  or  intertheater  ship.  An 
intratheater  ship  travels  within  a theater;  an  intertheater  ship  travels 
between  theaters. 

2. 2. 2.1  Itinerary  Shipping.  Ships  assigned  to  operate  on  a particular 
itinerary  visit  the  specified  ports  in  the  order  in  which  the  ports  are  in- 
put to  the  itinerary.  On  reaching  one  of  these  ports,  a ship  discharges 
cargo  Identified  for  that  port.  Cargo  destined  for  ports  on  the  ship's 
itinerary  and  acceptable  for  that  ship  type  is  loaded  aboard  the  ship. 
Itinerary  ships  operate  continuously  and  never  enter  the  "ship  pool." 


♦Although  the  model  has  the  capability  to  examine  draft,  '•’..is  function 
is  not  used  in  the  present  version. 
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2. 2. 2. 2 Intratheater  Shipping.  Intratheater  ships  load  cargo  only  for 
those  ports  which  are  in  the  same  theater  as  the  port  generating  the  cargo. 
Therefore,  when  an  Intratheater  ship  enters  a port  and  discharges  any 
cargo  aboard  for  that  port,  a search  is  made  only  for  acceptable  cargo  to 
be  delivered  in  the  same  theater.  After  this  cargo,  if  any,  is  loaded,  the 
ship  heads  for  the  nearest  port  for  which  it  has  cargo.  If  there  is  no 
cargo  aboard,  a check  determines  whether  there  is  any  intratheeter  cargo  at 
any  port  in  theater  that  needs  to  be  shipped.  The  port  which  hrs  the  larg- 
est amount  of  such  cargo  becomes  the  next  port  to  be  visited  by  the  ship. 

If  there  's  no  port  with  intratheater  cargo,  the  ship  joins  the  ship  pool. 

2. 2. 2. 3 Intertheater  Shipping.  Ships  assigned  to  this  type  of  , peratlon 
load  cargo  that  is  generated  in  one  theater  for  delivery  to  another  theater. 
When  a ship  reaches  a port,  it  first  discharges  any  cargo  deliverable  to 
that  port.  Subsequent  actions  depend  on  whether  the  ship  is  in  its  de- 
livery theater  or  its  home  theater,  both  of  which  are  inputs  for  each 
inter theater  ship.  In  the  model,  the  home  theater  is  the  one  that  con- 
tains the  home  port  of  the  ship;  the  delivery  theater  is  the  one  for  which 
the  ship  Is  loading  cargo  when  in  its  home  theater. 

When  a ship  is  in  its  home  theater  searching  for  cargo  to  load  for  its 
delivery  theater,  the  following  questions  it  ist  be  answered: 

• Is  the  cargo  acceptable  for  this  ship? 

• Is  the  depth  of  the  destination  port  compatible  with  the 
ship  draft? 

• Does  the  destination  port  for  this  cargo  have  an  accept- 
able unloading  facility? 

After  all  cargo  meeting  the  above  criteria  is  loaded,  the  ship  sails 
for  the  closest  port  in  the  home  theater  for  which  it  has  retrograde  cargo 
aboard.  Retrograde  cargo  is  cargo  scheduled  for  delivery  to  a port  in  the 
home  theater.  This  cargo  was  loaded  in  the  ship's  delivery  theater.  If 
there  is  no  retrograde  cargo  aboard  and  the  ship  is  at  least  80  percent 
full,  it  sails  for  the  closest  port  in  its  delivery  theater. 

If  the  ship's  current  load  volume  is  between  20  percent  and  80  percent 
of  capacity,  a check  is  made  to  determine  whether  the  time  in  current  oper- 
ations in  the  home  theater  has  exceeded  1/3  of  the  input  cycle  time  between 
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Che  home  theater  and  delivery  theater  of  the  ship.  If  so,  the  ship  sails 
for  the  closest  port  in  its  delivery  theater  for  which  it  has  cargo. 

If  the  ship  is  under  80  percent  loaded  and  less  than  1/3  of  the  cycle 
time  has  expired,  or  if  the  ship  is  under  20  percent  loaded  even  when  more 
than  1/3  cf  the  cycle  time  has  expired,  the  ship  searches  the  other  ports 
in  its  home  theater  for  cargo  destined  for  its  delivery  theater.  If  it 
finds  acceptable  cargo  amounting  to  at  least  500  measurement  tons,  the  ship 
sails  for  that  port  to  load  that  cargo.  If  no  such  port  is  found,  a check 
is  made  to  determine  whether  the  ship  his  any  cargo  aboard.  If  there  is 
no  cargo  aboard,  the  ship  retires  from  operations  and  joins  the  ship  pool. 
If  the  ship  has  any  cargo  at  all,  it  sails  to  the  ports  in  the  delivery 
theater  for  which  it  has  cargo  aboard. 

When  a ship  is  at  a port  in  its  delivery  theater,  all  cargo  to  be  de~ 
livered  to  that  port  is  discharged  and  acceptable  cargo  to  be  delivered  to 
a port  in  the  home  theater  is  loaded.  If  more  corgo  is  aboard  for  other 
port(s)  in  the  delivery  theater,  the  closest  such  port  is  selected  as  the 
next  port  of  call  for  the  ship.  If  there  is  no  cargo  aboard,  the  ship  re- 
turns to  its  home  port. 

Intertheater  ships  may  also  operate  as  intratheater  ships.  This  sit- 
uation occurs  when  the  next  destination  port  of  an  intertheater  ship  is 
within  the  same  theater  as  the  current  port.  If  it  is,  a check  determines 
whether  intratheater  cargo  exists  at  the  current  port  for  delivery  to  the 
next  port  of  call.  If  so,  and  if  the  cargo  is  of  an  acceptable  type,  that 
cargo  is  also  loaded  at  the  current  port. 

2.2.3  Ship  Pool 

The  model  provides  for  a pool  of  ships.  Ships  enter  the  pool  for  one 
of  two  reasons: 

1.  Some  ships  are  assigned  to  the  pool  at  the  start  of  the  simulation 
and  are  available  for  operations  at  day  30.  This  feature  may  be  useful  in 
automatically  allocating  ships  on  a delayed  basis. 

2.  The  ships  were  previously  in  normal  operations  and  entered  the 
pool  because  there  was  no  cargo  to  be  delivered  for  which  they  were  elig- 
ible carriers.  Ships  remain  in  the  pool  for  the  period  of  time  specified 
in  the  input . 
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A check  every  seven  days  determines  whether  cargo  del ivery  require- 
ments during  the  work  week  warra  ' the  removal  o£  any  ships  from  the  pool. 
This  check  establishes  an  array,  A(i,J),  (i  represents  the  home  theater  and 
j the  delivery  theater)  which  represents  cargo  awaiting  delivery  for  which 
shipping  is  not  presently  available.  The  array  is  established  by  the 
following  steps: 

* Tabulate  the  current  amount  of  cr^rgo  waiting  to  be  moved 
from  one  theater  to  another  or  within  a theater 

* Determine  which  ships  presently  operating  will  be  avail- 
able to  transport  cargo  during  the  following  week 

* Compute  A(i,j)  by  subtracting  the  capacity  of  these 
available  ships  from  the  appropriate  entry  in  the 
array  of  cargo  to  be  delivered 

If  any  of  the  entries  A(i,j)  are  greater  than  10,000  measurement  tons, 
the  pool  is  searched  for  ships  that  may  transport  the  cargo.  Ships  are  re- 
moved from  the  pool  in  the  order  in  which  they  meet  the  following 
requirements: 

* Ships  having  home  theater  "i"  and  delivery  theater  "j" 

* Ships  having  home  theater  "i"  and  the  capability  of 
changing  delivery  theater 

* Ships  having  the  capability  of  changing  home  and 
delivery  theaters 

If  a ship  satisfies  one  of  the  above  criteria,  it  is  removed  from  the 
pool  provided  at  least  500  measurement  tons  of  acceptable  cargo  are  avail- 
able at  theater  "i." 


2.3  PORT  CHARACTERISTICS 

2.3.1  Port  Description 

The  following  inputs  are  required  to  define  each  port: 

1.  Number  of  berths  of  each  of  six  types  at  the  port. 

2.  Theater  in  which  the  port  is  situated. 

3.  Maximum  acceptable  ship  draft. 

(1,2,  and  3 above  restrict  the  ship  types  that  may  enter  the  port.) 

4.  Miscellaneous  port  delay  (time  in  days)  — Represents  time  needed 
to  service  the  ship  at  that  port. 

5.  Cargo  handling  adjustment  factor  — Used  to  modify  the  base  cargo 
handling  rate  to  reflect  the  efficiency  of  cargo  handling  operations  at  the 
port  and  the  number  of  shifts  worked. 

6.  Cargo  handling  costs  (dollars  per  day)  — Represents  the  direct 
charges  associated  with  cargo  handling  operations  at  the  port. 

7.  Name  of  the  port  — Used  in  the  summary  output  for  port 
identification. 

Distances  between  ports  are  also  input  and  are  needed  to  calculate  the 
amount  of  time  spent  traveling,  the  cost  of  travel,  and  in  some  cases,  to 
determine  the  port  to  which  the  ship  will  travel. 

2.3.2  Berth  Selection  and  Queue  Operation 

When  a ship  reaches  a port,  it  must  determine  which  type  of  berth  to 
enter  (see  Section  5.14  for  berths  used).  Since  provision  is  made  to  input 
preferred  berth  types  for  each  ship,  a check  is  made  of  the  preference  se- 
quence. If  there  is  a preferred  berth  type,  the  ship  enters  that  type  if  it 
is  available.  If  it  is  not  available,  a check  is  made  to  determine  whether 
a second  preference  is  indicated.  If  so,  and  that  type  is  available,  the 
ship  enters  that  type.  If  that  type  is  not  available,  or  if  there  Is  not 
a second  preference,  the  ship  joins  the  queue,  or  waiting  line,  to  await 
service  for  the  preferred  type. 

If  there  are  no  input  berth  type  preferences,  the  model  determines  the 
berth  type  to  be  used  on  the  basis  of  the  cargo  handling  rate  at  each  berth. 
Computations  are  made  to  determine  which  berth  type  at  the  port  would  result 
in  the  maximum  discharge  rate  for  the  type  of  cargo  aboard.  If  that  type 


is  available,  the  ship  enters  the  berth.  If  it  is  not  available,  the  model 
determines  which  of  the  available  types  has  the  greatest  discharge  rate.  If 
that  rate  is  at  least  an  acceptable  percentage  (an  input)  of  the  previously 
computed  maximum  rate,  that  berth  type  is  used  by  the  ship.  If  an  accept- 
able facility  cannot  be  found  on  this  basis,  the  ship  enters  the  queue  to 
await  servit  at  the  berth  type  which  has  the  maximum  rate.  If  within  the 
queue  at  a given  port  more  than  one  ship  is  waiting  for  the  srune  berth  type, 
the  ships  are  removed  in  the  order  in  which  they  entered  the  queue. 

>. 4 CARGO  CHARACTERISTICS 

2.4.1  Cargo  Types 

DOD  material  is  classified  in  terms  of  various  supply  commodities, 
e.g.,  Subsistence;  Clothing;  Petroleum,  Oil  and  Lubrication  (POL);  Ammu- 
nition; Major  End  Items.  A single  supply  commodity  or  a combination  of 
commodities  with  similar  characteristics  is  referred  to  in  REACT  II  as  a 
cargo  type.  Supply  commodities  can  be  combined  when  they  have  similar 
methods  and  rates  of  handling,  storage  requirements,  and  ratios  of  volume 
(measurement  tons  (MT) ) to  weight  (long  tons  (LT)),  MT/LT. 

2.4.2  Cargo  Generation 

The  buildup  of  cargo  at  a port  is  simulated  by  cargo  generation. 

Input  parameters  for  cargo  generation  are: 

• Time  of  generation 

• Frequency  of  generation 

• Amount  and  type  of  cargo 

• Origin  and  delivery  ports 

These  parameters  establish  a schedule  for  cargo  generation.  Cargo  may 
be  generated  only  once  or  at  regular  intervals.  The  model  allows  for  one 
change  in  the  frequency  of  the  interval  during  a given  simulation  run. 
Factors  which  control  the  schedule  of  cargo  generation  are: 

• First  day  of  generation 

• Frequency  of  generation 

• Day  on  which  frequency  changes 

• New  frequency 

• Last  day  of  generation 
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2*4.3  Cargo  Transfer  Syatena 

The  REACT  II  model  accommodates  six  different  cargo  transfer  systems, 
one  or  more  of  which  are  associated  with  each  ship  type.  A transfer  sys- 
tem refers  to  the  network  of  equipment  used  to  load  and  unload  a ship  and 
Includes  equipment  both  at  the  port  and  on  the  ship.  A given  transfer 
system  Is  used  only  at  a specific  type  of  berth.  The  productivity  rate  of 
a transfer  system/berth  combination  includes  the  type  of  cargo  to  be 
handled  and  Is  input  through  a three-dimensional  array  (cargo,  transfer 
system,  and  berth).  For  those  combinations  which  are  not  valid,  a zero  is 
entered  in  the  array. 

When  a ship  arrives  at  a port,  the  berth  providing  the  highest  cargo 
handling  rate  is  chosen.  To  select  the  berth  the  model  may  query  the  array 
or  follow  the  user's  input  for  the  ship's  first  and  second  choices  for 
berth  types. 

2.4.4  Cargo  Handling  Rates 

The  productivity  rate  is  the  amount  (in  measurement  tons)  of  cargo  of 
a particular  type  that  may  be  discharged  per  3-hour  shift  from  a ship  in  a 
particular  type  of  berth  and  using  a particular  transfer  system.  The  rate 
at  which  a ship's  cargo  ia  loaded  or  discharged  is  a function  of  the  base 
handling  rat*  and  adjustment  factors  (Section  5.4).  The  base  rate  may  be 
either  a single  productivity  rate  or  the  sum  of  appropriate  rates  when 
more  than  one  transfer  system  is  used.  (The  summing  of  rates  implies  in- 
dependent operation  of  transfer  systems.)  The  base  rate  is  derived  from 
the  productivity  rate  array  and  is  adjusted,  as  required.  Adjustments  to 
productivity  rates  reflect  that 

1.  Cargo  may  be  unloaded  and  loaded  at  different  rates.  If  the 
adjustment  factor  is  other  than  unity,  different  rate3  will  be  used  for 
the  two  operations. 

2.  Different  ports  can  have  different  cargo  movement  rates  even  when 
all  other  factors  are  equal.  For  each  port  the  base  rate  is  adjusted  by 
an  input  value. 

3.  Cargo  may  not  be  handled  at  the  assigned  rate  when  more  than  one 
ship  transfer  system  is  being  utilized.  An  input  factor  accounts  for  in- 
dependence of,  or  interference  between,  the  transfer  systems. 


’"btu 
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The  time  required  to  move  cargo  i£  a function  of  this  adjusted  rate 
and  the  amount  of  cargo  to  be  moved. 

Since  a ship  may  carry  more  than  one  type  of  cargo,  the  time  required 
to  handle  each  cargo  type  must  be  computed  and  summed  to  give  the  total 
time  for  handling  the  cargo. 

Since  a ship  may  encounter  miscellaneous  delays  at  a port,  a delay 
time  is  input  for  each  port.  The  total  time  in  port  is  the  sum  of  this 
delay  time  and  the  time  required  for  load/discharge  operations. 

2.5  COSTS 

The  model  determines  total  system  costs  on  a cumulative  basis^  These 
costs  include  the  direct  operating  costs  of  the  ship  in  port  and  at  sea  rnd 
the  handling  costs  associated  with  the  movement  of  cargo.  The  model  re- 
quires as  input:  (1)  the  costs  at  sea  and  costs  in  port  for  a particular 

ship  type,  (2)  administrative  costs  associated  with  each  type  of  ship 
owner,*  and  (3)  cargo  handling  costs  for  a given  port.  Each  of  these  costs 
is  input  in  dollars  per  day.  Contributions  to  the  total  system  costs  for 
each  ship  (except  owner  type  1 ships.  Berth  Liner)  are  as  follows: 

* lor  each  day  in  transit,  operating  costs  at  sea  as  a 
function  of  the  ship  type. 

* For  each  day  in  port,  operating  costs  as  a function  of 
ship  type  and  cargo  handling  costs  as  a function  of  the 
individual  port. 

* For  each  day  spent  in  the  queue  awaiting  port  service, 
costs  on  the  basis  of  ship  type. 

* For  each  day  of  operation,  in  transit,  in  port,  and  in 
queue,  the  administrative  costs  as  a function  of  the 
ship  owner. 

For  owner  type  1 ships,  the  only  contribution  to  system  costs  is  the 
cost  per  measurement  ton  per  thousand  miles  for  cargo  (by  type)  delivered. 
No  costs  are  accumulated  for  ships  in  the  pool. 


*Up  to  six  different  ship  owner  types  are  allowed  in  the  program. 
Section  5.6  indicates  those  presently  used. 
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SECTION  3 
SYSTEM  OUTPUT 

REACT  II  simulates  only  the  shipping  operations  being  studied;  no 
optimal  solution  Is  computed.  From  the  output  statistics,  the  simulated 
shipping  operation  can  be  analyzed. 

The  output  of  REACT  II  Is  composed  of  two  parts:  paper  listing  and 

punched  cards.  The  paper  listing  consists  of  three  sections,  Model  Input 
Listing,  Ship  Event  History,  and  System  Status  Summary. 

The  Input  Listing  is  useful  In  validating  the  input  from  punched  cards 
and  also  describes  the  system  to  which  the  output  applies. 

The  Ship  Event  History  is  a chronological  record  of  the  ships'  actions 
and  is  useful  in  reconstructing  the  sequence  of  events  during  the  run.  The 
Event  History  includes  the  time  a ship  enters  and  leaves  a queue,  port,  or 
ship  pool,  and  the  information  associated  with  each  event.  Production  of 
the  Event  History  is  optional;  its  suppression  produces  a shortened  version 
of  System  Status  Summary. 

The  System  Status  Summary  is  printed  both  periodically  and  at  the  com- 
pletion of  the  run.  It  includes  cumulative  costs,  the  current  number  of 
ships  in  the  pool,  and  port  information.  From  this  output,  an  analyst  can 
determine  whether  the  berthing  facilities  at  a specific  port  are  adequate, 
or  whether  the  given  number  of  ships  is  capable  of  meeting  the  cargo 
movement  requirements. 

The  model  also  produces  punched  cards  for  input  to  an  external  program 
which  graphs  the  results.  A card  is  made  for  each  day  shown  in  the  printed 
System  Status  Summaries.  Each  card  contains  the  day  the  values  are  calcu- 
lated and  cumulative  information  describing,  by  class,  cargo  generated, 
cargo  shipped,  and  cargo  delivered.  A sample  output  is  given  in 
Appendix  B. 
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SECTION  4 
THE  PROGRAM 

The  REACT  II  model  is  composed  of  eleven  Fortran  IV  subroutines.  Each 
subroutine  has  a particular  function,  which  is  performed  at  a specific  time 
determined  either  by  input  or  by  a previous  operation.  Figure  2 shows  the 
organization  of  the  REACT  model. 

4.1  DEFINITION  OF  EVENT 

The  requirement  for  a specific  operation  (such  as  the  arrival  of  a ship 
at  a port,  or  the  generation  of  cargo  at  a port)  schedules  an  event  which 
is  to  occur  at  a later  time.  The  event  is  said  to  occur  when  the  operation 
has  been  performed  (ship  arrives,  or  cargo  is  generated).  At  that  time  de- 
cisions for  subsequent  events  are  made. 

The  major  events  in  ship  operations  and  the  subroutines  performing 
them  are  listed  in  Table  1. 


TABLE  1 - MAJOR  EVENTS 


Event 

Subroutine 

Cargo  Generation 

CARGEN 

Ship  Enters  Port 

PORT 

Cargo  Loaded 

LOAD 

Ship  Leaves  Port 

MOVE 

Ship  Transported  To  Port 

Remove  Ship  from  Pool 

KRGEVL 

If  Conditions  Satisfied 

Print  Output 

PRINT 

Terminate  Execution 

ENDGAM 

4.2  EVENT  LIST 

The  scheduling  of  events  in  the  model  during  the  simulation  requires  a 
bookkeeping  system.  The  system  consists  of  an  event  list  and  operations 
which  (1)  store  events  on  the  list  as  they  are  generated,  and  (2)  remove 
events  from  the  list  et  the  appropriate  times  throughout  the  simulation. 
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•IN  CASE  OF  ABNORMAL  TERMINATION.  CONTROL  IS  TRANSFERRED  TO  ENDGAM. 
WHEN  SUBROUTINES  IN  PARENTHESIS  ARE  CALLED,  CONTROL  RETURNS  TO  THE 
L CALLING  SUBROUTINE. 


Figure  2 - Subroutine  Flow 
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The  event  list  contains  references  to  the  locations  in  the  computer 
used  to  store  events  generated  during  the  simulation.  Along  with  each 
event  is  stored  tne  time  at  which  it  will  occur  and  its  description.  The 
events  are  arranged  on  the  list  chronologically  by  their  simulated  occur- 
ence times.  Subroutine  PUT  stores  events  on  the  event  list.  An  event  is 
simulated  by  removing  the  event  from  the  event  list.  Subroutine  TAKE  re- 
moves events  from  the  event  list.  The  appropriate  subroutine  is  then 
entered  to  perform  the  required  functions.  For  example,  removing  a cargo 
generation  event  from  the  list  simulates  the  generation  of  a quantity  of 
cargo  specified  in  the  input. 

The  initial  Event  List,  which  is  formulated  in  Subroutine  MAIN,  is 
composed  of  the  following  events: 

* Cargo  generation  check  on  day  1 

* The  first  day  the  System  Status  report  is  to  be  printed 

* The  day  each  ship  will  be  available  at  its  origin  port 

* The  first  day  the  pool  is  to  be  checked 

* The  day  the  mission  is  to  terminate 

The  events  are  stored  in  the  order  in  which  they  are  to  occur  along 
with  ship  numbers  for  those  events  involving  ships. 

From  MAIN  control  is  transferred  to  TAKE  which  removes  the  first  event 
from  the  event  list  and  transfers  control  to  the  appropriate  subroutines. 
Once  TAKE  has  been  called,  control  is  not  returned  to  MAIN.  Subsequently, 
additional  events  are  placed  on  the  event  list  to  simulate  ship  operations. 
For  instance,  when  a ship  is  available,  a MOVE  event  is  generated  repre- 
senting the  movement  of  the  ship  to  the  port  at  which  cargo  has  been  gener- 
ated by  a CARGEN  event.  A PORT  event  simulates  the  ship  entering  the  port 
and  a LOAD  event  simulates  loading  of  the  ship. 

4.3  SUBROUTINE  DESCRIPTIONS 

CARGEN  generates  cargo  as  specified  by  input.  It  is  called  on  day  1 
to  generate  the  appropriate  cargo.  The  "next  day"  cargo  to  be  generated  is 
determined  and  a new  entry  for  the  Event  List  is  created. 
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KNDGAM  terminates  execution.  Normally  termination  la  at  a day  speci- 
fied by  input,  but  abnormal  termination  may  occur  earlier  and  an  error 
message  is  then  printed.  ENDGAM  also  prints  additional  summary  information. 

KRGEVL  evaluates  the  need  to  remove  ships  from  the  pool  every  seven 
days.  If  all  criteria  are  met  (see  Section  2.2.3),  a ship  ie  removed  from 
the  pool  and  sent  to  the  appropriate  port  (a  new  entry  to  the  Event  List) . 

LOAD  loads  cargo  on  ships,  updates  costs,  and  returns  control  to  PORT. 

MAIN  reads  the  input  data,  initiates  storage  areas,  formulates  the 
initial  event  list,  and  writes  the  data  inputs. 

MOVE  determines  the  time  at  which  a ship  will  arrive  at  its  destination 
port  and  sets  up  a PORT  event  for  that  day.  If  the  ship  is  not  to  be  sent 
to  a port,  MOVE  adds  it  to  the  ship  pool.  MOVE  also  determines  whether  any 
ships  are  in  the  queue  for  the  facility  that  the  ship  is  leaving.  If  so., 
PORT  events  for  the  ships  in  the  queue  are  generated. 

PORT  is  the  central  control  mechanism  for  ship  carpo  handling  activi- 
ties. This  subroutine 

1.  Determines  che  berth  a ship  is  to  enter.  If  a berth  is  not 
available,  the  ship  enters  the  queue  and  control  is  transferred  to  TAKE. 

2.  Unloads  cargo. 

3.  Determines  acceptable  cargo. 

4.  Updates  costs. 

5.  Tabulates  cargo  handling  time. 

6.  Determines  next  destination  port  and  sets  up  a MOVE  event  for  the 
time  at  which  tha  ship  is  to  leave  the  port. 

PhluT  prints  o.t  the  Status  Summary  Repo  t.  A PRINT  event  occurs  at 
the  current  time  plus  the  print  interval  specified  in  the  input. 

PUT  enters  events  on  the  event  7 1st  in  chronological  order. 

QUEUE  maintains  a liRt  of  thips  waiting  to  enter  a particular  berth 
type  at  a given  port. 

TAKE  icuoves  an  event  from  the  event  list  and  transfers  control  to 
the  appropriate  subroutine. 
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SECTION  5 
MODEL  INPUT 


Parameters  required  for  execution  of  REACT,  summarized  in  Table  2,  are 
input  on  cards.  Cards  must  be  input  in  the  order  given  in  the  table. 

The  following  sections  describe  the  individual  card  formats. 


5.1  PRODUCTIVITY  RATES 

These  cards  contain  base  rates  used  in  calculating  the  amount  of  time 
a ship  will  spend  in  cargo  handling  operations  at  each  port.  The  produc- 
tivity rate  is  defined  as  the  amount  (in  measurement  tons)  of  a particular 
type  of  cargo  that  may  be  discharged  per  8-hour  day  from  a ship  at  a 
particular  berth  type  and  using  a particular  cargo  transfer  system. 

PRODUC ( I, J,K)  where: 

I is  the  berth  type  number  (1  to  6) 

J is  the  cargo  transfer  system  number  (1  to  6) 

K is  the  cargo  type  number  (1  to  8) 


COLS  1-48 

Card  1 PRODUC  (l.I.K)  K-1,8 

Card  2 PRODUC  (1,2,K)  K-1,8 


COLS  49-72  COLS  73-80 

blank  PROD 

• I It 


Card  6 PRODUC  (1,6,K)  K-1,8 

Card  7 PRODUC  (2,1,K)  K-1,8 


Card  35  PRODUC  (6,5,K)  K-1,8 
Card  36  PRODUC  (6,6,K)  K-1,8 

Each  productivity  rate  has  an  F6.0  format. 


II 


fl 
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TABLE  2 - INPUT  CARD  REQUIREMENT  SUMMARY 


Data  On  Card(s) 

Card  Name 

Number  of  Cards 

1. 

Productivity  rates 

PROD 

36 

2. 

Distances 

DIPT 

90 

3. 

Cycle  time 

KKTME 

1 

4. 

Ad  jus tments 

ADJUST 

1 

5. 

Cost  oer  ton 

CSTTON 

1 

6. 

Administrative  costs 

C ST ADM 

1 

7. 

Number  of  itineraries 

NITIN 

1 

8. 

Itinerary 

ITIN 

NITIN 

9. 

Run  identification 

IDENT 

1 

10. 

General  information 

GENERAL 

1 

11. 

Ports  printed 

REPORT 

1 

12. 

Number  of  cargo  generations 

NKOGOGN 

1 

13. 

Cargo  generations 

CGEN 

NKGOCN 

14. 

Port  information 

PORT 

NNPORT* 

15. 

Ship  type 

ST 

NTYPE* 

16. 

Ship  identification 

SHIP 

NSHIP*/4 

17. 

Manipulation 

MANIP 

4 

Card 

*These  values  also  appear  on  the  GENERAL  information  card, 
10. 

20 


5.2  DISTANCES 


These  cards  contain  the  d'cter^es „ • nautical  miles,  between  any  two 

ports.  These  distances  are  us^d  to  compute  sailing  times  for  nonitinerary 
ships. 

DIST(I, J)  where: 

I is  the  origin  pert  number  (1  to  30) 

J is  the  destination  port  number  (1  to  30) 


COLS 

1-60 

COLS  61-72 

COLS  73-80 

Card 

1 DIST  (1 , J)  J-1,10 

blank 

DIST 

Card 

2 DIST  (1 , J)  J-11,20 

fl 

ii 

Card 

3 DIST  (1,J)  J-21,30 

• t 

it 

Card 

4 DIST  (2, J)  J-1,10 

• 

• 

fl 

ti 

Card 

• 

90  DIST  (30, J)  J-21,30 

It 

ti 

Each 

distance  has  an  F6.0  format. 

5.3 

CYCLE  TIME 

This  card  contains  the  cycle  times 

(in  days)  for 

intertheater  ships* 

The  values  on  this  card  are  used  in  the  model  to  keep  the  ships  cycling 
between  their  home  and  delivery  theaters  at  regular  intervals.  A ship  is 
allowed  to  search  for  cargo  in  its  home  theater  for  a maximum  of  one-third 
of  the  input  cycle  time. 

KKTIME(I.J)  where: 

I is  the  home  theater  number  (1  to  6) 

J is  the  delivery  theater  number  (1  to  6) 
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COLS 

FORMAT 

NAME 

DESCRIPTION 

1-12 

612 

KKTIME  (1,J) 

J-1,6 

Cycle  times 

13-23 

• 

• 

612 

KKTIME  (2,J) 

J-1,6 

Cycle  times 

• 

61-72 

612 

KKTIME  (6, J) 

J-1,6 

Cycle  times 

73-80 

A 

"KKTIME" 

Card  name* 

Each  cycle  Hme  has  an  12  format. 

5.4  ADJUSTMENTS 

Various-  miscellaneous  factors  are  defined. 


COLS 

FORMAT 

NAME 

DESCRIPTION 

1-  6 

F6.0 

ADJLD 

I>ad  adjustment  factor1 

7-12 

F6.0 

TTRAN 

Transit  time  to  or  from 
ship  pool 

13-18 

F6.0 

ADJRAT 

2 

Queue  adjustment 

19-24 

F6.0 

ADJCGO  (1) 

3 

Conversion  factor 
for  cargo  type  1 

25-30 

F6.0 

ADJCGO  (2) 

Conversion  factor 
for  cargo  type  2 

31-36 

F6.0 

ADJCGO  (3) 

Conversion  factor 
for  cargo  type  3 

37-42 

F6.0 

ADJCGO  (4) 

,onversion  factor 
for  cargo  type  4 

43-48 

F6.0 

ADJCGO  (5) 

Conversion  factor 
for  cargo  type  5 

49-54 

F6.0 

ADJCGO  (6) 

Conversion  factor 
for  cargo  type  6 

55-60 

F6.0 

ADJCGO  (7) 

Conversion  factor 
for  cargo  type  7 

61-66 

F6.0 

ADJCGO  (8) 

Conversion  factor 
for  cargo  type  8 

67-72 

- 

- 

Blank 

73-80 

A 

"ADJUST" 

Card  name 

*The 

card  name 

KKTIME  is  punched  in  columns 

73-80. 
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NOTES:  1.  The  load  adjustment  factor  is  used  to  convert  input  produc- 

tivity rates  (discharge  rates)  into  loading  rates.  A value  of  ”1"  indi- 
cates that  loading  and  unloading  takes  place  at  the  same  rate.  Fr fictional 
values  indicate  a slower  rate  for  loading;  values  greater  than  one  indicate 
a faster  rate  for  loading.  2.  An  input  fraction  is  used  as  a criterion 
(by  ships  not  having  a berth  preference)  to  determine  whether  to  queue  at 
an  occupied  berth  having  the  highest  productivity,  or  to  enter  an  available 
berth  with  a lower  productivity  rate.  The  productivity  rate  at  the  avail- 
able berth  type  must  be  at  least  this  input  fraction  of  the  highest  produc- 
tivity rate  at  this  port.  The  higher  the  value,  the  more  selective  ships 
will  be  in  their  search.  This  may  cause  the  ships  to  queue  for  long 
periods  at  a pert.  3.  This  factor  (values  of  0.C1  to  10000)  is  used  to 
convert  volume  (measurement  tons  (MT))  to  weight  (long  tons  (LT)). 

5.5  COST  PEE  TON 

This  card  contains  eight  values  representing  the  costs  per  measurement 
ton  (MT)  per  thousand  miles  shipped  for  the  eight  cargo  types  carried  by 
ships  of  owner  Type  1,  berth  liner.  Costs  (dollars)  may  range  from  0 to 


99999. 

COLS 

FORMAT 

NAME 

Dt  CRIPTION 

1-  6 

F6.0 

CSTTON  (1) 

Cost  per  MT  of  cargo 

type  1 

7-12 

F6.0 

CSTTON  (2) 

Cost  per  MT  of  cargo 

• 

• 

type  2 

• 

4 3- A 8 

F6.0 

CSTTON  (8) 

Cost  per  MT  of  cargo 

type  8 

49-72 

- 

- 

Blank 

73-80 

A 

"CSTTON" 

Card  name 
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5.6  ADMINISTRATIVE  COST 


This  card  contains  the  dally  administrative  costs  In  dollars  for  the 


six  ship 

owner  types. 

Values  may  range  from  0 

to  99999. 

COLS 

FORMAT 

NAME 

DESCRIPTION 

1-  6 

F6.0 

CSTADM  (1) 

Owner  Type  1 (Berth  Liner) 

7-12 

F6.0 

CSTADM  (2) 

Owner  Type  2 (Military 
Sealift  Command  (MSC) ) 

13-18 

F6.0 

CSTADM  (3) 

Owner  Type  3 (General 
Agency  Agreement) 

19-24 

F6.0 

CSTADM  (4) 

Owner  Type  4 (Requisi- 
tion/Nationalistic) 

25-30 

F6.0 

CSTADM  (5) 

Owner  Type  5 (Self- 
Sustaining  Container) 

31-36 

F6.0 

CSTADM  (6) 

Owner  Type  6 (Nonself- 
Sustaining  Container) 

37-72 

- 

- 

Blank 

73-80 

A 

"CSTADM" 

Card  name 

5.7  NUMBER  OF  ITINERARIES 

The  value  of  NITIN 
(Section  5.8). 

must  correspond  to  the 

number  of  itinerary  cards 

COLS 

FORMAT 

NAME 

DESCRIPTION 

1-10 

110 

NITIN 

Number  of  unique  itiner- 
aries (values  of  0 to 
10) 

11-72 

- 

- 

Blank 

73-80 

A 

"NITIN" 

Card  name 

5.8  ITINERARY 

One  card  Is  required  for  each  itinerary  specified  in  Section  5.7. 
Itinerary  numbers  are  assigned  by  input  order. 


COLS 

FORMAT 

NAME 

DESCRIPTION 

1-10 

110 

Number  of  ports  on  the 
itinerary  from  1 to  10 

11-12 

12 

- 

Number  of  5th  port  on 

Itinerary* 

ISHayiiBMaiiSiiafiiat 
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Number  of  4th  port  on 
Itinerary* 

Number  of  3rd  port  on 
It inerary * 

Number  of  2nd  port  on 
Itinerary* 

Number  of  1st  port  on 
Itinerary* 

Number  of  10th  port  on 
Itinerary* 

Number  of  9th  port  on 
Itine rary * 

Number  of  8th  port  on 
Itinerary* 

Number  of  7th  port  on 
1 

Itinerary 

Number  of  6th  port  on 
Itinerary 

Sailing  time  from  4th  to 
2 

5th  port 

Sailing  time  from  3rd  to 
4th  port 

Sailing  time  from  2nd  to 
3rd  port 

Sailing  time  from  1st  to 
2nd  port 

Sailing  time  from  10th  to 
1st  port 

Sailing  time  from  9th  to 
10th  port 

Sailing  time  from  8th  to 
9th  port 

Sailing  time  from  7th  to 
8th  port 
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J 


COLS 

FORMAT 

NAME 

DESCRIPTION  j 

If 

47-48 

12 

- 

Sailing  time  from  6th  to  j 

8th  port  . ] 

49-50 

12 

— 

Sailing  time  from  5th  to  j 

6th  port  j 

51-72 

- 

- 

Blank 

73-80 

A 

"ITIN" 

Card  name 

NOTES:  i.  A ship  sequences  from  the  first  port  thrc  ,h  the  last  port,  | 

J 

and  then  back  to  the  first  port.  The  same  sequence  is  followed  until  all  | 

cargo  is  delivered.  If  fewer  than  10  ports  are  used,  the  remaining  port  * J 

entries  aia  0 or  blank.  2.  Sailing  time  (in  days)  may  range  from  1 to  99.  * 

j 

3 

5.9  RUN  IDENTIFICATION  j 

This  card  contains  a 72-character  alphanumeric  label  to  identify  the  j 


run. 

COLS 

FORMAT 

NAME 

DESCRIPTION 

1-72 

A 

- 

Identifying  label 

' 

: 

73-80 

A 

IDENT 

Card  name 

i; 

5.10 

GENERAL  INFORMATION 

COLS 

FORMAT 

NAME 

DESCRIPTION 

j 

1-  9 

19 

NSHIP 

Number  of  ships* 

r 

10-18 

19 

NSTYPE 

Number  of  ship  types* 

\ 

S'' 

19-27 

19 

NNPORT 

Number  of  ports* 

fc 

t 

28-36 

19 

NFTYPE 

Number  of  berth  types 

J. 

J 

37-45 

19 

NTHEA 

Number  of  theaters 

Is 

46-54 

19 

IOUT 

Output  Indicator 

If  IOUT»0,  a shortened 
version  of  System  Status 


Summaries  will  be 
presented. 

If  I0UT“1,  System  Status 
Summaries  and  Event  His- 
tories will  be  printed. 


COLS 

FORMAT 

NAME 

DESCRIPTION 

55-60 

F6.0 

TEVAL 

Time  interval  between 
System  Status  Summary 
printouts 

61-66 

F6.0 

TST0P 

Maximum  game  time 
(limited  tc  320  days) 

67-72 

F6.0 

TDEL 

Time  delay  before  first 
cycle  of  System  Status 
Summary.  F7  .it  printout 
is  at  "TDEL+TEVAL"  days 

73-80 

A 

"GENERAL" 

Card  name 

5.11  PORTS  PRINTED 

This 

card  contains 

the  numbers  of  port'' 

Included  in  the  System  Status 

Summaries. 

COLS 

FORMAT 

NAME 

DESCRIPTION 

1-  2 

12 

IKE  (1) 

Port  number 

3-  4 

• 

• 

12 

IKE  (2) 

Port  number 

* 

73-80 

A 

"REPORT" 

Card  name 

Port  numbers  are  entered  in  ascending  order. 


5.12  NUMBER  OF  CARGO  GENERATIONS 

The  value  of  NKGOGN  on  this  card 
cargo  generation  cards. 

COLS  FORMAT  NAME 

1-10  110  NKGOGN 

11-73 

73-80  A "NK0GN" 


must  be  the  same  as  the  number  of 

DESCRIPTION 

Number  of  cargo 
generations 

Blank 

Card  name 
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5.13  CARGO  GENERATIONS 


These  cards  describe  the  types  of  cargo  generated  by  quantity,  fre- 
quency, generating  port,  and  delivery  port.  One  card  is  required  for  each 
cargo  generation. 


COLS 

FORMAT 

NAME 

DESCRIPTION 

!-  3 

13 

KGOGN 1 (I ) 

Last  day  cargo  is  to  be 
generated 

4-  6 

13 

- 

1b  t day  cargo  is  to  be 
generated 

7-  8 

12 

— 

Interval  (days  between 
generations) 

9 

- 

- 

Blank 

10 

11 

- 

Cargo  Type 

11-12 

12 

- 

Port  generating  cargo 

13-14 

12 

- 

Delivery  port 

15-19 

15 

KGOGN 2 (I) 

Blank 

20-24 

15 

- 

Amount  of  cargo  generated 

25-29 

15 

KG0GN4(I) 

Blank 

30-32 

13 

- 

Day  frequency  changes 

33-34 

12 

New  interval  (must  be  a 
multiple  of  tne  old 
interval) 

35-72 

- 

- 

Blank 

73-80 

A 

CGEN 

Card  name.  CGENl  for 
first  cargo  generation, 
CGEN2  for  second,  etc. 

NOTE:  Cargo  generations  are  ordered  in  the  input  deck  first  by  gener- 

ating port  number  (Cols.  11-12)  and  second  by  delivery  port  r,.;jnber  (Cols 
13-14).  For  each  originating  port,  the  cargo  type  must  be  in  ascending 
order.  For  example,  If  Port  3 generates  cargo  types  3,  6,  and  4,  the  cargo 
types  must  be  in  the  order  3,  4,  and  6.  If  this  ordering  is  not  followed, 
erroneous  output  statistics  will  result. 


..  ....  — 
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5.14  PORT  INFORMATION 


These  cards  describe  the  characteristics  of  each  port  in  the  simula- 


tion. 

The  number  of 

these  cards  must  correspond 

to  the  input  value  "NNPORT 

on  the 

"GENERAL"  card 

• 

COLS 

FORMAT 

NAME 

DESCRIPTION 

1-  3 

13 

NFPRT1 (I ) 

Number  of  berths  type  3 
(Lighterage  berth) 

4-  6 

13 

Number  of  berths  type  2 
(Self-sustaining  con- 
tainer berth) 

7-  9 

13 

- 

Number  of  berths  type  1 
(Break  bulk  berth) 

10-12 

13 

NFPRT2 (I ) 

Number  of  berths  type  6 
(Nonself-sustaining  con- 
tainer berth) 

13-15 

13 

- 

Number  of  berths  type  5 
(Not  used) 

16-18 

13 

- 

Number  of  berths  type  4 
(RoRo  berth) 

19 

13 

ITHPRTT (I ) 

Theater  of  port 

20-25 

F6.0 

TDLA(I) 

Port  delay1 

26-31 

F6.0 

ADJPRT(I) 

Adjustment  factor  for 
2 

productivity  rates 

32-37 

F6.0 

CSDTHDL(I) 

3 

Cost  of  cargo  handling 

38-40 

F6.0 

DFTRPT(l) 

Maximum  allowable  ship 
draft 

44-55 

2A6 

PRTNAM 

Twelve-character  name  of 
port.  This  label  will  be 
printed  on  output  Status 
Summary  Report. 

56-72 

- 

- 

Blank 

73-80 

A 

PORT# 

Card  name.  P0RT1  for 
f i ’•st  port,  PORT 2 for 
second,  etc. 

NOTES : 

1.  TDLA — Port  delay  time  (in  days)  encountered  by  all  ships  using 


this  port,  with  values  0 to  999. 


aMNkii 'it'iYlhki  dir-  ae  a ' 
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2.  ADJPRT — Adjustment  factor  (values  of  0 to  99)  applied  to  pro- 
ductivity rates  reflecting  the  cargo  handling  capabilities  of  each  port. 
A fractional  value  will  reduce  productivity  rates.  This  modifier  is 
used  for  multiple  shl*N.  operations. 

3.  CSTHDL — Cargo  handling  cost  (in  dollars  per  day)  used  in  com- 
puting the  costs  for  both  loading  and  unloading  operations  for  all  types 
of  cargo  (values  of  0 to  99999). 


5.15  SHIP  TYPE 

These  cards  describe  the  ship  types.  There  must  be  one  card  for  each 
ship  type  used  in  the  model  and  the  number  of  these  cards  must  correspond 
to  the  value  NSTYPE  on  the  GENERAL  card. 


COLS 

FORMAT 

NAME 

DESCRIPTION 

1-  8 

F9.0 

SPEED 

Speed  (knots)  of  ship 
type 

9-16 

F8.0 

CAPACW 

Cargo  capacity  (weight) 
in  long  tons  (values  of 
0 to  99999) 

17-24 

F8.0 

CAPACV 

Cargo  capacity  (volume) 
in  measurement  tons 
(values  of  0 through 
99999) 

5-32 

F8.0 

CSTSEA 

Cost  per  day  at  sea  (dol- 
lars per  day)  for  this 
ship  type  (values  of  0 to 
99999) 

33-40 

F8.0 

CSTPRT 

Cost  per  day  at  port  (dol- 
lars per  day)  for  this 
ship  type  (values  of  0 to 
99999) 

41-48 

F8.0 

DRAFT 

Ship  draft.  This  value  (0 
to  99)  is  used  by  the 

model  to  determine  whether 
a vhip  of  this  type  may 
enter  the  port,  except  for 
itinerary  ships.  The  user 
must  make  sure  that  all 
ports  on  the  itinerary 
have  acceptable  draft  for 
any  ship  assigned  to  the 
itinerary. 
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I 


l 


i i 
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COLS  FORMAT  NAME 

49-56  F8.0  ADJTRN 


57  Blank 

58  II  KTRANS 


59  II 

60  II 

61  II 

62  II 

63  II 


64  II 

65-72  811  KARSHP 
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DESCRIPTION 

Multi-transfer  system  ad-  ; 

Justment  factor.  This 
value  is  used  to  reflect 
the  interference  of  cargo  j 

transfer  systems  operating 
simultaneously.  The  pro- 
ductivity rate  for  each  j 

transfer  system  Is  multi-  ’ j 

plied  by  this  factor.  A \ 

value  of  "1"  Indicates  , j 

that  transfer  systems  op-  \ 

erate  together  at  the  same  l 

rate  that  they  operate  j 

independently.  A value  j 

from  0 through  99999  will  3 

result  in  a lower  rate  ' 

then  the  base  product iv-  \ • 

ity  rate.  | j 


Cargo  transfer  system  type 
6 (Nonself-sustaining 
container) 

Cargo  transfer  system  type 
5 (Not  used) 

Cargo  transfer  system  type 
4 (RoRo) 

Cargo  transfer  system  type 
3 (Lighterage) 

Cargo  transfer  system  type 
2 (Self-sustaining 
container) 


Cargo  transfer  system  type 
1 (Break  bulk).  A "1"  in 
any  of  the  above  columns 
indicates  the  use  of  that 
transfer  system.  A "0" 
indicates  that  the  trans- 
fer system  is  not  used. 

Number  of  different  trans- 
fer systems  used  (values 
of  0 to  6) 

Types  of  cargo  this  ship 
may  carry.  Start  in  Col. 
65  with  the  least  pre- 
ferred type  and  proceed 
to  Col.  72  with  the  most 
preferred. 


COLS 

73 


74 


75 


76-80 


5.16 


FORMAT  NAME 

11  KPREFI 


II  KPREF2 


II  KCHANG 


A "ST#" 


DESCRIPTION 

First  berth  type  prefer- 
ence (if  any)  for  this 
ship  type  (values  0 to 
6).  A value  of  0 indi- 
cates that  the  ship  has 
no  facility  preference 
and  will  enter  the  berths 
at  the  port  giving  the 
highest  productivity 
rate. 

Second  berth  type  prefer- 
ence (if  any)  for  this 
ship  type.  If  all  the 
berths  of  first  prefer- 
ence are  occupied,  the 
ship  will  attempt  to 
enter  this  type. 

Changes  in  theaters  a 
ship  of  this  type  can 
make  when  being  re- 
moved from  the  pool. 

0 —  ship  can  change 
both  home  and 
delivery  theaters 

1 —  ship  can  change 
only  delivery 
theaters 

2 —  ship  can  change 
neither  theater 

Card  name,  ST1  for  first 
ship  type  card,  ST2  for 
second,  etc. 


SHIP  IDENTIFICATION 

These  cards  contain  initial  ship  information.  Each  card  contains  in- 


formation for  four  ship3 


COLS 
1-  3 


4-  5 


6-  7 


8 


FORMAT  NAME 

13  ISHIP(l) 


12 


12 


II 


II 


DESCRIPTION 

Time  of  availability  (in 
days).  This  is  the  time 
at  which  a ship  initially 
enters  the  game.  Any 
value  from  0 to  319  days 
may  be  chosen.  If  the 
value  entered  in  these 
columns  is  320,  the  ship 
is  placed  in  the  ship 
pool,  where  it  remains 
for  at  least  30  days  or 
until  cargo  movement  re- 
quirements warrant  its 
removal . 

Initial  port  number.  The 
first  port  of  call  for 
the  ship  at  the  beginning 
of  the  game.  If  the  ship 
is  on  an  itinerary,  the 
initial  port  must  be  a 
port  on  the  itinerary. 

If  the  ship  Is  nonitiner- 
ary, the  initial  port 
must  be  a port  within  the 
home  theater. 

Itinerary  number  (if  any). 
This  input  (with  a value 
of  1 to  10)  is  required  if 
the  ship  is  assigned  to 
itinerary  operations.  A 

0 is  input  if  the  ship  is 
nonitinerary. 

Type  of  operation.  Enter 

1 fcr  inter theater  oper- 
ations 

2 for  intratheater  oper- 
ations 

0 for  nonitinerary  oper- 
ations 

Owner.  Identifies  the 
contractual  control  of 
the  ship  (values  of  1 to 
6) 
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COLS 


FORMAT 


NAME 


DESCRIPTION 


10-11  12 


12-14  - ISHIP2 

15  II 


16-17  12 


18-28 

29-34 

35-45 

46-51 

52-62 

63-68 


Ship  type.  One  of  the  25 
possible  ship  types.  The 
ship  will  have  all  the 
characteristics  of  that 
ship  type  as  input  on 
the  ship  type  (ST)  card. 

Blank 

Delivery  Theater  Number. 
Establishes  the  delivery 
theater  of  an  inter- 
theater ship  (a  number 
from  1 through  6).  Not 
applicable  for  ships 
assigned  an  itinerary 
(a  zero  is  input).  For 
intratheater  ships,  the 
delivery  theater  and  home 
theater  will  be  identical. 

Home  Port.  Establishes 
the  home  theater  of  intra- 
theater  and  intertheater 
ships;  e.g.,  if  the  port 
input  is  in  theater  1, 
then  theater  1 will  be 
the  home  theater  of  this 
ship.  Not  applicable  for 
ships  assigned  to  itiner- 
ary operations. 

Same  type  of  Information 
shown  in  c^ird  columns 
1-11,  for  a second  ship. 

Same  type  of  information 
shown  in  card  columns 
12-17,  for  a second  ship. 

Same  type  of  information 
shown  in  card  columns 
1-11,  for  a third  ship. 

Same  type  of  information 
shown  in  card  columns 
12-17,  for  a third  ship. 

Same  type  of  information 
shown  in  card  columns 
1-11,  for  a fourth  ship. 

Same  type  of  information 
shown  in  card  columns 
12-17,  for  a fourth  ship. 


...  if  ■ i l 


COLS 

FORMAT 

NAME 

DESCRIPTION 

69-72 

- 

- 

Blank 

73-80 

A 

Ship# 

The  sequence  number  in- 
cluded in  the  card  name 

will  be  used  to  maintain 
cards  in  proper  order. 

The  number  given  to  each 
ship  by  the  model  is  de- 
pendent on  the  order  in 
which  cards  are  input, 
e.g.,  card  "SHIP  1"  will 
identify  ship  #1,  ship  t 2, 
ship  #3,  and  ship  #4. 

Card  "SHIP  2"  will  iden- 
tify ship  #5,  ship  #6, 
etc. 


5.17  MANIPULATION 

These  four  cards  allow  a user  to  vary  ships  used  in  the  game  by  type 
and  availability  without  changing  ST  cards  or  SHIP  cards. 


CARD 

COLS 

FORMAT 

NAME 

DESCRIPTION 

1 

1-3 

13 

MANIP  1 

Number  (less  than  or 
equal  to  NTYPE)  of  ship 
types  required 

2 

1-2 

12 

MANIP  2 

Ship  types  used  (value 
corresponds  to  value  of 
ST) 

3-4 

5-6 


3 

• 

1-3 

13 

MANIP  3 

Highest  acceptable  avail- 
ability of  ships* 

4 

1-3 

13 

MANIP  4 

Number  subtracted  from 
availability* 

•NOT”:  All  ships  of  owner  type  2 (MSC  shipping)  will  remain  in  the 

game,  and  no  change  will  be  made  to  their  availability. 
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APPENDIX  A 

GENERAL  DESCRIPTION  OF  REACT  II* 


*This  information  was  excerpted  from  Perry,  Howard  W,  and  Catherine  B 
Gleason,  "REACT — A Shipping  Operations  Simulation,"  Research  Associates  In 
corporated,  Silver  Spring,  Md.  (Jan  1969). 
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I.  INTRODUCTION 

REACT,  an  acronym  for  Requirements  Evaluated  Against  £argo  ^ransporta- 
tion,  is  a computer  simulation  model  developed  for  use  in  the  study  and 
analysis  of  shipping  operations.  The  model  was  designed  to  be  general 
enough  to  allow  a wide  spectrum  of  shipping  operations  to  be  analyzed. 

Consider  a system  consisting  of  certain  objective  areas  at  which  cargo 
is  to  be  delivered.  This  cargo  is  available  at  certain  sources.  The 
general  problem  then  is  to  transport  this  cargo  from  these  sources  to  the 
required  destinations  using  the  ship  inventory  that  is  available. 

REACT  allows  for  the  simulation  of  this  shipping  operation  in  which 
the  sources,  objective  areas,  and  ship  inventory  are  defined  in  general 
termc.  That  is,  the  quantity  and  characteristics  of  each  of  these  ele- 
ments are  functions  of  the  input  data.  It  follows,  therefore,  that  with 
this  degree  of  flexibility  the  model  can  simulate  a wide  variety  of 
system  configurations. 

The  following  sections  describe  in  some  detail  the  operation  of  the 
model  with  regard  to  the  overall  task  of  transporting  cargo  from  one  port 
to  another. 


II.  SHIP  OPERATION 

The  flexibility  of  the  model  allows  the  simulation  of  different  modes 
of  ship  operation.  Both  itinerary  and  nonitinerary  ships  may  be  simulated. 
An  itinerary  is  defined  in  the  model  as  an  ordered  rat  of  ports.  Provision 
is  made  in  the  model  for  the  inclusion  of  up  to  ten  different  itineraries, 
each  of  which  may  comprise  up  to  ten  ports.  Thus,  operations  of  an  itiner- 
ary ship  are  restricted  to  the  ports  on  its  itinerary,  while  ships  not  as- 
signed to  an  itinerary  operate  in  response  to  cargo  delivery  requirements. 
Nonitinerary  ships,  however,  must  be  assigned  to  either  intra-  or  Inter- 
theater operations,  in  order  to  maintain  some  control  over  their  activities. 
Intratheater  ships  respond  only  to  cargo  generated  for  delivery  within  the 
same  theater,  whereas  inter theater  ships  are  allowed  to  operate  between  and 
within  two  separate  theaters.  Ships  referred  to  as  intertheater  ships  may, 
in  3ome  cases  operate  as  intratheater  ships,  depending  on  the  cargo  they 
carry. 


tyufraMiiw 
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III.  SHIP  POOL 

Provision  is  made  in  the  model  for  a pool  of  ships.  Ships  enter  the 
pool  for  one  of  two  reasons.  The  first  is  that  the  ships  may  have  been 
input  initially  as  being  in  the  pool.  This  feature  may  be  useful  in  rep- 
resenting, for  example,  the  availability  of  the  reserve  fleet  on  some  de- 
layed basis.  The  second  reason  is  that  the  ships  may  have  been  on  normal 
operation  previously  and  then  entered  the  pool  at  some  later  time  because 
there  was  no  cargo  to  be  delivered  which  they  were  eligible  to  carry. 

Ships  entering  the  pool  for  this  second  reason  must  remain  in  the  pool  for 
a time  period  specified  in  the  input  before  they  may  leave.  This  time 
represet ts  ROS  (reduced  operating  status)  incuri  3d  when  a ship  is  removed 
from  cargo  activity  after  returning  to  its  home  port  and  not  finding  any 
cargo  to  be  delivered. 


IV.  CARGO  GENERATION 

Rather  than  directly  addressing  the  cargo  requirements  existing  at  the 
various  ports,  the  model  concerns  itself  with  the  generation  of  cargo  at 
certain  ports  for  delivery  to  those  ports  which  require  the  cargo.  This 
approach  may  be  considered  equivalent  since  any  requirement  must  ultimately 
be  fulfilled  by  the  generation  of  the  specific  cargo.  This  approach  also 
avoids  the  necessity  of  modeling  the  interface  between  the  requesting  activ- 
ity and  that  activity  charged  with  transporting  the  cargo  to  a port  area. 
Thus,  in  order  to  simulate  cargo  requirements  in  the  model,  cargo  require- 
ments at  a given  time  must  be  translated  into  cargo  generated  at  an  earlier 
time  to  allow  for  the  pick-up  and  delivery  of  the  cargo  to  the  required 
objective  port.  Cargo  requirements  are  converted  to  generations  in  the 
following  manner: 

After  the  requirements  for  a particular  cargo  type  at  the  given  objec- 
tive area  have  been  examined,  historical  data  can  supply  information  con- 
cerning the  ports  that  have  fulfilled  that  requirement  in  the  past  and  ♦•he 
corresponding  ratios  in  which  the  commodity  was  supplied.  The  historical 
data  can  also  be  examined  to  determine  the  distribution  of  shipment  amounts 
for  these  port  pairs  (origin-destination).  With  this  information,  the  num- 
ber of  generation:,  needed  to  provide  the  required  cargo  can  be  computed. 
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Since  the  sealift  requirements  are  given  on  a time-phased  basis,  the 
generations  must  be  scheduled  such  that  the  requisite  amount  of  cargo  is 
generated  in  time  to  meet  the  requirements.  With  this  estimate  as  to  the 
available  time  in  which  to  generate  the  cargo  and  knowing,  from  the  above 
computations,  the  number  of  generations  needed,  the  frequency  of  generation 
can  be  computed.  Thu  a,  the  information  needed  for  each  generation  (the 
frequency  and  the  distribution  of  cargo  amounts)  may  be  synthesized  from 
the  sealift  requirements. 

Hence,  cargo  is  introduced  to  the  model  in  the  form  of  "cargo  gener- 
ations." A cargo  generation  may  be  defined  as  "generation,  at  a specific 
time,  of  a determined  amount  of  a particular  type  of  cargo  at  a port  for 
delivery  to  some  other  port."  Thus,  cargo  in  the  game  is  generated  for 
delivery  on  an  input  time-phased  schedule  in  amounts  needed  to  meet  the 
proposed  requirements.  The  input  factors  which  control  the  schedule  and 
the  amount  of  cargo  for  each  generation  Include:  (1)  the  frequency  of 

generation,  (2)  time  of  initial  generation,  and  (3)  the  statistical  dis- 
tribution required  to  generate  cargo. 

The  input  time  of  Initial  generation  serves  only  to  fix  the  time  of 
first  occurrence  of  a particular  generation.  If  this  input  is  properly 
chosen  for  all  cargo  generations,  initialization  effects  in  the  model  can 
be  reduced  to  a minimum.  Following  the  initial  occurrence,  cargo  genera- 
tion recurs  on  a cyclic  basis  where  the  cycle  time  is  equal  to  the  input 
frequency  of  generation. 

When  the  time  for  a generation  is  reached,  the  statistical  distribu- 
tion type  of  the  generation  must  be  determined.  The  amount  of  cargo  gen- 
erated is  then  computed  as  a random  variate  from  the  distribution  type, 
using  the  input  parameters  of  the  distribution.  The  generated  cargo  is 
then  added  to  the  system  and  tagged  as  cargo  to  be  delivered. 

An  additional  feature  of  the  cargo  generation  package  in  the  model 
is  the  capability  to  change  the  frequency  of  any  cargo  generation  once 
during  the  play  of  the  game.  To  accomplish  this  requires  only  input  of 
the  new  frequency  and  the  time  at  which  the  new  frequency  becomes 
effective.  When  that  time  is  reached,  the  new  frequency  is  utilized  to 
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determine  all  subsequent  occurrences  of  that  particular  generaticn.  This 
feature  can  simulate  the  heavy  delivery  requirements  in  the  initial  stages 
of  a contingency  and  the  subsequent  reduction  in  requirements  once  the 
necessary  inventory  levels  are  established. 

V.  CARGO  HANDLING  RATES 

The  rate  at  which  cargo  is  loaded  on  or  discharged  from  a ship  is  a 
function  of  several  variables.  In  this  model  the  base  rate  in  measurement 
tons  per  day  is  input  as  the  average  rate  at  which  cargo  is  discharged. 

It  is  a function  of  (1)  the  cargo  type  being  discharged,  (2)  the  type  of 
transfer  system(s)  aboard  the  ship  engaged  in  .he  operation,  and  (3)  the 
type  of  facility  at  which  the  ship  is  berths  1 or  anchored. 

Provision  is  made  in  the  model  for  a chip  type  to  have  multiple 
transfer  systems.  This  gives  the  capability  of  simulating  the  newer  multi- 
purpose ships.  In  considering  cargo  operations  aboard  the  multi-transfer 
system  ships,  the  model  makes  the  a.  sumpti.on  that  each  transfer  system  may 
operate  simultaneously  on  each  ca'  >lock  that  is  to  be  moved.  The  over- 
all rate  using  the  available  transfer  systems  is  then  adjusted  by  an  input 
factor.  This  factor  is  used  to  account  for  mutual  interference  of  the 
transfer  systems.  This  approach  is  not  exactly  equivalent  to  the  real  life 
situation  in  which  each  transfer  system  operates  on  different  cargo  blocks 
simultaneously.  It  does  not  preclude,  however,  obtaining  realistic  port 
times  for  the  multi-purpose  ships  if  the  values  of  the  associated  inputs 
are  judiciously  chosen. 
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PER  CENT  OF  SHIP  VOLUME  USEO  BY  MOM— ITINERARY  SHIPS  LEAVINC  HOME  THEATER 


*D£CK  PFACU 

PPOG*»P  A£  ACT  I INPUT*  OUTPUT  « TAPES*  INPUT  « TAPE 6* OUTPUT  * PUNCH) 
CALL  MAIN 

# AM 


CALL 

STOP 

FNO 


•I1ECK  CARGFN1 

SUBROUTINE  OAR  GEN 
CONN  ON 

1 NST  YPE, NNPORT ,NFTYPE*NTHEA*NITIN*TEVAL. TSTOP^NSHIP*  ROFNT 112), 

2 CSTA0HI6I  .CSTTONIRI  .PROOUC <6,6,61  .OISTI30 ,101  ,KKT INF  16.61 ,TINE* 

3 KFVENTH.10I.NEVFNT,  TVENT.L VENT  1 ,LVEN T2. L VENT  3.  IOSMIP, KVORO.RN 
CONN  ON 

1  SPEFO I2SI .CAPACM I 2S I »CAPACV 1 251*  CSTSE  A I 251 .CS TPRT 1251 * DRAFT 1251 . 

? KTRANS(26I  ,AOJTRN(2SI,KARSKPt25),ISHTPU00>,ISHTP2!600>* 

3 NPITINI18I ,NPTTN1I10)*NPTTN2I10I  *NTITN1I10>  .NTITN2I10I* 

A KPRFF 11261 * KPPEF  21251 .((CHANG  (251 
CONN ON 

1 NFPRT1I3B I .NEPPT2I 30  )« ITHPRT I 30 1 « TOLA  130 ) t AO JPRT (30 1 « OSTHM.  130 1 • 

2 OFTPPT I30I*TTRAN* KFPPTU 301 *KFPRT2I30) .AOJRA T ,PRTNAM( 30.21 
CONNON 

1 NKAPGC. (CARGO  <6000 1 * ISN.CSTSYS*  NQ1.NQ2.NQ3.  NQUEUE.KQIJFUE  1 600 1 . 

2 KGOGNI!  10  001  * KGOGN2  I tOOtl  .CGOGN3  1 10  00  I .KGOGN6  1 10001 *NKGOGN,AOJL ft. 

3 A0JC60I6I 
CONNON 

1 KARGOL 130  *6*61* NQPORTI 31 1 « NPRF AC  130*6) .KRGSHP 130 *«* .TOPORTtSOI* 

2 KRGGFNI30  .61#  NPOOL,  I OUT  • TVOLAV  (25 ) .TVOLUS I 25)  , TVAV 16,  61  • TVUS  16*61 
CONNON/*/  ONPNAHI 6*  2) 

00  100  1=1. NKGOGN 
ITTN€=TINE 

IF  I ITINE.GT.  KGOGNI I TI/IOOOOOQIOOOOIGOTOIOO 
IF  IMOOKOOGN&in/lOOBOOaOg.lOOO  l.GT.ITIHEI  GO  TO  40 
KGOGNI  II ) = kgogni  in*  looaaoaoo 
INlT  = MCOIKGOGNUI»/taOOOOOOI,lQOI  ) 

1 V*L  = MCO  IK  GOGH  II  11/1000004,1001 
IFIINIT.LT.IVAH  GO  TO  40 

I0ISTR.HO01K606N1 I I> /lOOOOO.lOl *t 
PAR1=NC0(KG0GN2(TI,  1000001 
PAR2=NGOGN2II»/iaaOOO 

kgogni  ii  i*  ikgognh  ii /iaaaaaaoaoia»«iaoaooGooooo«NoniKGnGNj  m 
1,10000000a  i 

GO  TO  lia,20.30,60l,tniSTR 
10  KGOGN2 111=0 

20  XHTspARl 

GOTO  BO 
30  CALL  PNG 

X N T= A BS  IP  A R 2*«  N*  I PAR  1-F  AR  2 » » 

GOTOSO 
61  PNUN=B 

00  SO  J=l* 12 
CALL  PNG 

SO  RNUH=PN»RNUN 

XNT=PftR2»PARl* IRNUN-6.1 
TF  (XNT.LT.O)KNTsG 
00  CG0GN3  III  = CGOGN3 I I IaXNT 

ICTsHOOIXGOGNHIt/iaaaO.lBI 
iptsnooikgogni  in/  lia.iaot 

KRGGENIIPT, ICTI=KPGGFN«IPT.!CTI*IFIXIXNTI 
IF  IKGOGNNlII/lOa.NE.ITIAnGOrOlia 
40  IF  IKG0GN6 I II  . LF.OI GOTOIOO 

kgogni  iit  = <KGOGNim/iaaaaoaaaaaai  •iooooooooaoo»Hon<KGOGN6m. 
iiaei*iooooao»NooiKGOGNiii i.iaeaaaai 

KGOGN6  Ills  0 
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IOC  CONTINUE 
L VFNT 1 =0 
LVFNT2=3 
LVENT  3=0 
TVFNT=riMF  *1. 
CALL  PUT 
CALL  TAKF 
RETURN 
FNO 


•OECK  ENOGAM1 

SUBROUTINE  ENOGAM 
COMMON 

1 NSTYrE,NNPORT,NETYPF,NTMEA.NITrN,TFVAL  .TSTOP,  NSMIP.R*>ENT*12I, 

2 CSTAOMCM ,CSTTONIA»,PROOUCI6.6.8l.imT  « 30.30  .KKTrME*6«6»,TINE, 

3 KFVFNTI410I.NFVEWT.  TVENT . L VENT 1 ,L VEN T 2 .1 VENT 3 . IDSMIP, KWORO.PN 
COMMON 

1 SPEFO  < 2S I • CAP  ACM  ( 2 6J  .CAPAC  V(25>  .CSTSEAC25I  .CSTPRTI25)  .0RAFTI2S  > * 

2 K TRANS (261 .AO JTRN  i ? S I , K A PS  HP  ( 25  » . ISMTP*  *00  > . I SHIP?t40*»  » 

3 NPITIM10  »,NPTTNi*  10 > . NPITN 2* 1 0 > .NT tTNl  ( 10  P , NTITN2  1 10  » . 

4 KPREF1I2S*.  KPPEF2I 25)  ,KCHANG(2$> 

COMMON 

1 NFPRTU30  ».NFPPr2*30I.ITHPRT*3O.T0LAC30»,A0JPPTt30»,CSTN0Ll3i»  . 

2 DFTPRT * 30  ) «T  T RAN, KFPRT 1(39) .KFPRT?  I 30 » , AOJRAT ,P»TNAM C 30. 21 

COMMON 

1 NKARGO.KAR GO *40001  . ISW.CSTSYS » NQ1,N02.NQ3,NGUEUF ,K9UEUE*40I). 

2 KGOGNltlOOO)  .XGOGN2I  10 00 > , CGO GN3 < 1000  I , KG0GN4  ( 1080 1 .NKGOGM.  AOJLO. 

3 AOJCGOI A) 

COMMON 

1 KARGDL*30»A,6),NQPOPT*30I, NPRFAC (30*61 .KRGSHP < 30,A» .TOPORT * 30 > . 

2 KRGGFNI3I),  AI.NPOOL, I OUT, TVOCAV*2*>»cTVOLUS*25> ,TVAV*6,6» ,TVUSI6.6» 
COMMON FA/  0NRNAM*6.2» 

COMMON/C/  KRGD  («*Q  ) , NPOOLMl  AO  I , NTS  TOP 
COMMON /MN/ NNT VPF (251 , NOT, NN AVAIL* NNNA 
ISM  = 1 
CALL  PRINT 

WRITF  (6. 101)  <I,CGOGNJ*T>,I=l,NKGOGN> 

101  FORMAT  (<*3X«22H CARGO  NOT  YET  SHIPPER  /4X,5(8HG£N.  NO.  .2X.6HAMOUNT. 

1 4X > / ( 6X, T 3,4X,FA. 0 , 5X, I 3.4X. F8 . t,5X. 13 . 4X , F8 . 0 . 5X, 13 . 4 X , FA . 6 , 5X . 
2 I3,4*,FA.O.  />  ) 

WRITE  (6. 1 59) 

159  FORMAT*///20X,*TIME  CARGO  OELTVEREO  CHIPS  IN  POOL*) 

00  160MMM=5,NTSTOP. 5 

MM=MMM/S 

WRITE (6, 16 1 » NMM, XRGO ( NM» .NPOOLMl NM> 

160  CONTINUE 

161  FORMAT* 22 X, 1 3,10 X, 1 10, 10 X,  1 3) 

WPITEI6, 1621 'NNTYPFdl, 1 = 1, NCT  ) 

162  FORMAT*///*  SHIPTYPFS  TN  GAME  *,26131 
WRITE<6„163>  NNAVATL.NNNA 

163  FORMAT**  HIGHEST  ACCEPTABLE  AVAILABILITY  *,I3/*  HUMBFR  SUBTRA 

CCTFO  FROM  AVAILABILITY  *, I3> 

STOP 

ENO 
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•OECX  i.RGEVL i 

SUOROUTIME  KRGEVL 
COMMON 

1 NSTYPE, NNPORT  ,NETVPE,M1  HE  A * MI  TIN,  TEVftL  , TSTOP » NSHIP,RDENT  (12)* 

2 CSTADH(6)  , CSTTONM ) , PROOUC  (6«6,»«DIST(30*30)  ,K)CTIHE(G.GI  ,TIME. 

3 KEVEMT  (610  ),NEVENT * T¥ENT,)„VENTl,LVENT2,LVENT3,TOSMIP*KI(ORD*RN 
COMMON 

1 SPEE0(25I  ,CAPACM(25t  ,C*PAr,V(25>  .CSTSEA (25»  tCSTPMT (25» *0RAFT(25) * 

2 KTRAMS  (251  *AO  JTRN(25)  *KARSHP(  291 « ISHIPUOQ I * ISMIP2(600», 

3 NPITINdO  ) , NP ITM1 ( 10 1*  NPITN  2(  10)  «’.4TITN1(  10)  «NTlTN2(il  > • 

% KPREF1 (25  * * XPP.EF  2(  251  .IcCKANG  (25) 

COMMON 

1 NFPRTK3BI  *MFPRT2(  301*1 TMPRY  ( 30)  * TOLA  (30)  « ADJPRT(SO) * CSTHDl  (30)  « 

2 OfTPRT(3ll »TTRAN»KFPRT1 (30) *KEPRT2(30> * ADJRAT ,PRTMAM( 30,2* 

COMMON 

1 NKARGO,KARGO('*CGO)  ,TSM.CSTSTS , Nai*N02, NQ3, NQUEUE,KOUEUE(600), 

2 KGOGNK  1000) , KG0GM2 ( 1000)  «CG0GM3(  1000)  ,KGOGN6(lOOO)  .NKC06N.  AOJLO* 

3 AOJCGO(S) 

COMMON. 

t KARG0L( 30 , 8,6 1 • MQPORT(30 ) «MPRF AC (30, 6 ) .KRGSHP (38,8) .TQPORTC30) , 

2 KRGGEN(3  0 .8) , NPOOL  « I OUT, T VOL A V (C5)*TVOLUS(  251  ,TVAV(6,(t),TVUS(6,6) 
COMMON /A/  ONRN  AM  (6,  2 ’> 

C OMM  ON/'FM/ NGO  , M , X.  J J J 
DIME  MSI  JN  THRCRG(6,6) 

IF  (NPOOL)  50*50,1 

1 00  LOO  1 = 1*6 

00  100  J = 1.6 

T HRCRG  (I,  J ) = 0. 

100  CONTINUE 

1 = 1 

2 IF  (CG0GN3 ( II  I 6,6,3 

3 J = NOO(KGOGNUI)  ,100) 

K = MOOAKGOGNl (11/100, 10CI 
J = ITHPRMJ) 

K = ITHPRTOO 

THRCRG  (K  J I = THRCRGU,J)  ♦ CGOGN3(I) 

6 1 = 1*6 

TF  (I  - NKGOGN)  2.2*600 

600  1=  10.  * (TIME  ♦ F.l 
J = ME  KENT 

601  IF  (MOO (ME VENT (J),?C000)  - I)  610*610.690 

610  ISAVE  = MOOCKEVENT(J)/ 10 0000.10) 

IF  (ISAYF-ll  620,660,620 
620  IF  (ISAYE-2)  6 3 0 . 660  , 630 

630  J = J-l 

IF  (J)  690,650,601 

660  ISAVE  = KEVEMT (J)  / 10000000 
L = H00( ISHIP2 (TSAVE)/100,10) 

K = M00( ISHIP2 ( ISAVE) , 100 ) 

K = ITMPRTfK) 

LSAVE  = MOO  (I  SHIP  (I  SAVE)  .100) 

NSAVE  = MOO (ISHIP(ISAVE)/100 00 00,100) 

IF  ( ITHPRT (NSjVE)  - K)  630,650,630 
650  THRCRG(K,L)  = THRCRG (K,L ) - ,8*CAPACVCLSAYE) 

GO  TO  630 
690  M TIME  = TIME 

WRITE (6,691)  THRCRG  ( 1, 3) , THRCRG ( 3,1) , THRCRG (3 .2)  ,THRCRG(2 ,3) 
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WRITE (6,442)  ISHIP ( 86) * ISHIP2I 86) 

NCOUNT  rl 

610  UG  SO  K=l»  NSHf  P 

ISAVE  = IS H IP ( K) /10  0000008 
IF  (ISAVE)  80, SO. 30 

30  IF  (KTINE  - 3201  31,31,32 

31  IF  (KTIHF-ISAVF)  80,32.32 

32  L = MOC«ISHTPCIO,100» 

GO  TO  (331. 332.333). NCOUNT 

331  IGFN*ITHPRT(NOO(ISHIP2(K>,lflt) ) 

1 0FL -NOD  1 1 SHIP 2(1(1  /1«0,  10 ) 

XMOUNT  = 0. 

GO  TO  400* 

332  IFtKCHANG  (I. )-  2)  3332  » 60 . 80 
3332  IGFN--ITHPR  T(NOO( ISHIP2(K) , 10Q)  ) 

XMOUNT  = 0. 

GO  TO  330 

333  IF  (KCHANG  <L) I 33,33.80 
33  IGEN=1 

330  !OEL=l 

4fCQ  IF (THRCRG(  IGEN • IOEL ) - 1000 0 . ) TO  . 70. SO 
40  DO  60  KK=1 . NNPOPT 

IF!ITHPRT(KK)-IGEN)6Q,42,60 
42  IF  (DRAF1  (L  > -DF TPPT ( KK > ) 43 , 60  ,6 0 

43  GO  TO  (435,435,431) .NCOUNT 
431  XMOUNT =0 . 

435  00  50  LL=1,8 

LLL-LL-1 

JJJ=NOn(KARSHP(L)/10**LU..l«) 

TF (JJJ )50  , 50,44 

44  00  48  NK=1 , NKGOGN 

IF  ( (MOD  (KGOGNl(NK)  ,10000) /10(t>-  KK) 48,45  48 

45  IF  (NOD  (KGOGNl(NK),  1000001  / 100  00**  JJJ)  48,46,48 

46  IOPRT= (HOD  < KGOGN1 ( NK ) , 100 ) ) 

IF (ITMPRT(IOPRT)-IOEL)4«, 47.48 

47  XHGUNT  = XMO'JNT*C£OGN3tNK)\ 

48  CONTINUE 

5B  CONTINUE 

WRITE (6,51 ) IGEN. IOFL,KK*K, XHOUNT 
51  FORMAT (IX. 415, F8.0) 

GO  TO  (60. 6 0,6 10), NCOUNT 
610  IF  IXMOUNT-6000. )60. 72,72 

60  CONTINUE 

61  IF (XMOUNT- 5000  .)62»  72. 72 

62  GO  TO  (80,70,70)  , NCOUNT 

70  IOEL=IOEL*l 
IF(I0EL-6) 4000,4000. 700 

700  GO  TO  (80, 80,71) .NCOUNT 

71  IGEN*IGEN* 1 
IOFL=l 

IF (I  GEN-6)  4000,4000.80 

72  NSAVE=  MOO(ISHIP(K) . 10000) 

ISHIP(K)  * NSAVF  ♦ XKMOOOOOO 
ISHIP25K)  = KK  ♦ 100*IOEL 

THRCRG  (IGEN,IOEL)=  THRCRGdGEN,  IOEL)-  . 8’CAPAC V (LSAVF) 
IF  (IOUT)  76.  76.  75 
75  WRITE(6,«4)  TIME, K, IGEN, IOFL 
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MRITF  C6,49?»  ISMIPC A6)  ,I$H?P?C86> 

WRITE <6,491)  TMRCRG  (1,  31  « THRGRGC3»1  I , THRCRG<3 » 21  »TNRRRG<2»  3> 

492  F0RNATC1X.2I14I 
491  FORMAT Cl«,4F12t 0) 

76  L VENT i = K 

LVFNT2  = 2 
LVFNT3  = 0 
TVkNT  = TTMF 
CALL  PUT 

NPOOL  = NPOOL  - 1 
IF  < NPOOL  I 90,90, 88 

AO  CONTINUE 

HRITEC6* A1 ) NCOUNT 
A1  FORMAT  C1X,  IT) 

NCOUNT  =NCOUNT ♦ 1 
IF CNCOUNT-4 >800*90, 90 
90  LVFNT1  a 0 

LVFNT2  = 4 
L VENT 3 a 0 
TVENT  a TIME  ♦ 7. 

CALC  PUT 
CALL  TAKE 
RFTURN 

99  FORMAT  C/10  X ,4HA7  ,F5.1,16H  OATS,  SHIP  NO.  ,I3,S?M  -ENOWFO  FROM  P 

lOOL  TO  CARRY  CARGO  BETWEFN  THEATRES  ,T2,5H  ANO  , I2> 

END 
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jb.  yjsik- 


1 1 iT^iifcmiA  "t-*‘  ■ 


•BECK  L0AB1 

SUBROUTINE  LOAD 
COMMON 

1 NSTYPE,MMPORT,NETYPF,NTHE A, NIT  IN, TFVAL , TSTOP, NSHIP,»OFNT( 12) , 

2 CSTAOM(ft)  ,CSTTOtJ(8».PROOIjir.  (6,6,8),OIST(30.J0>  ,KKTIMF((>.S>  rTTMF, 

3 KFVFNTC41fl  I.NFVFNT,  (VENT  , L VE  NTl  ,*.VENT  2,L  VENT  3.  TOSHIP.  KVORO.  RN 
COMMON 

1 SPEED  €2«*»  • CAP ACW( 25)  . C APAC  V (2  5 » ,CSTSF  A C Zl  j ,C3  TP*T  I ?5)  .DRAFT  (25). 

2 KTRANS<25)  ,AOJTRM25)  ,K  ARSHPk  25  I . ISHT  P ( 40  0 ) , I SHTP?  t MOO  ) . 

3 NPI T INI 10 ) ♦NPITNl* 10*.NPITN2( 10 ) . M7IT N1 ( 10 ) , N 1ITN2 1 10 1 . 

4 KPHEFK25I,  K PPEF 2 ( 25) .KCHANG ( 25) 

COMMON 

1  NFPRT 1 (30  > »NF  PPT2 (30) * I THPRT (30) .TOLA (30) , AD JP»T (30 > . GSTHOt (30) , 

? OFTPPT  > 30 • ,TTRAN,KFPRT1(30),KFPRT?(30I , ADJRAT .PRTNAMI 38. 2) 

COMMON 

1 NKARGO.KARGOI 40  00  ), ISW.CSTSYS . NG1  ,N02  , NQ3  , NQU  EOF,  K0UEt)EI4  8«) , 

2 KGOGN1 ( 10  0 0) » KCOGN? ( 1080  t . CGOGN3 (1000  ) , KGOGN4  ( 1000 ) . NKGOGN, AOJLR, 

3 ADJCGOM) 

COMMON 

1 K ARGO Li  30 ,8,6 )« NO  PORT (30 ) < MPR  FAC (30,8) , KPGSHP (30,8) ,TOPORT(30), 

? !<RGGFN(3t)  ,8)  . NPOOL.IOlfT,TVOl.AV«?5)  ,YVOk.US(25)  ,TVAV  (ft.  6 ) . TVJS(6.  8) 
CCHMON/A/  0NRNAH(8.2) 

COMMON/B/  NTRA  M6t . KNF AC ( 1 0 1 , KCARG (6 ) . NTEHP(b)  , TT ,T • NPOPT.NTYPF , 

1 J.LL.SHPWT.SHPVOL  .NFAC.SAVTIX 
FQLT=0.0 

030  LSAVE  = I ♦ 100  * NPORT 

IF  (KPREF 1 (NTYPE)  ) 831,831,8301 

8 301  00  ft  30  2 J T = 1,3 

IE*  = 1QOO  **(JI  - 1) 

NTFMP(JI)  = MOn(NFPRTl ( I) /TFX, 1000) 

830  2 NTEMP(JIM)  = MOO ( NEPR T2(I) /IF  X, 1000 ) 

JTEMP  = KPREF1 (NTYPF ) 

IF  (NTEMP(  JTFMP1)  8 30  3,8  303.831 

830  3 IF  CXPREF  ?(NTYPE)  ) 841,841,8304 

8304  JTEMP  = XPPFF2 (NTYPE) 

IF  (HTEMPf JTEMP) ) 841,841,831 

831  IF  (MOO<KGOGN1  (J),  10000)  - LSAVE)  83?<,633,B41 

832  J=  J ♦ 1 

IF  (J-NKGOGN)  831,831.84 

833  * = 1 

isave  = non (kgogni ( j>/ioooo ,:o ) 

84  IF  1 1 SAVE  - KCAPG(K)  ) 840, 85, 840 

840  X = K* 1 

IE  (K-5)  84,84,83? 

841  RETURN 

85  IF  (CG0GN3 ( J) ) 832,832,8500 

8 SO  0 IE  (CGCGN3  <J)  - 34000.1  8S0 2 , 0502, 8 SCI 

8501  SAVE2  = 34030. 

GO  TO  850 

8 502  SAVE2  = CG0GN3(JI 

850  IE  (SAVE2-.8Q*  CAPAC V(NTYPE ) ♦ SHPVOL)  851,051,85? 

851  SAVE  “ SAVF2 
GO  TO  853 

852  SAVE=. 80*C APAC V ( NT VPE) -SHPV OL 

853  IF  (SAVE/AOJCGOdSAVE)  - C AF  AC  W ( NT  YPE  ) ♦ SHPHT  ) 855.855.854 

854  SAVE!  = C A PACK  (NTYPE ) - SHPVT 
SAVE  = SAVEI  * AOJC GO ( IS A VE ) 


865  IISAVa  SAVE 

EQLTrSAVE*  AOJC GO* I SAVE! ♦EQULT 

VRGSHP  (NPO  RT« ISA VE)  = VRGSHP (NPORT. TSA WEI  ♦ IISAV 
SHPMT  a SHPMT  *•  SAVE  / AOJCGO(ISAVE) 

SHPVOL  = SHPVOL  ♦ SAVE 
CG0GN3 I Jl  = CGOPH3 t Jl  - SAVE 
IE  til  - 31  ft7.A6.A7 

Aft  CSTSV5  * CSTSVS  *•  C D 1ST  (NPORT, I > * CSTTONI ISAVE)  * SAVF»  / 1900. 
87  L = 1 

SAVE  I = 0. 

8ft  IE  ( NTRANI L * I AAl.Aft2.AAl 

881  SAVE  I a SAVEI  ♦ PROOUC (MEAC «L,  ISAVE) 

882  L * L»  1 

IE  <L-  6)  ft6.Aft.qO 

qo  ie  (ll-i>  92,92.91 

qi  SAVEI  = SAVEI  * AOJTRN(MTVPE) 

9?  SAVEI  = SAVEI  * AOJLD  *A0JPRT( NPORT) 

IE < SAVEI. LE.0 .)  GO  TO  AAAft 
SAVTIH  = SAVTIH  ♦ SAVE  / SAVEI 
ft  AAA  IE  (II)  q206.q201.q206 
9 201  00  9206  M=1.10 

IE  (NNEAC(M)  ) 9203.9203,9202 

9202  IE  (NNEAC(M)  - T)  9206.9206.9206 

9203  NNEACIM)  = I 
GO  TO  9206 

9206  CONTINUE 

9206  NSAVE  a i ♦ lOOMOSHie 
M = 1 

JSAVE  = SAVE 

IE  ( NVARGO ) 930.936.930 

930  IE  (HOD(VARGOtH) .108088)-  NSAVE)  931.932,933 

931  N = M*1 

IE  (h-NVARGO)  930.930.936 

932  IE ( MOO (VAR GO ( H)/l OCOOO. 10 ) - ISAVE  ) 931.9321,931 

9321  IE  (KARGOf  H)/1000000  ♦ JSAVE  - 36000  > 9322,9322,931 

9322  KARGO(M)  a KARGO(M)  » JSAVE  * 1000000 
GO  TO  936 

933  N * NVARGO 

936  KARGO (N+l)  = KARGO(N) 

, N a N - 1 

IE  (N-Nl  936.936.936 

936  VARGO(M)  a JSA VE*1000000  ♦ NSAVE  6 ISAVE’100000 
NVARGO  a NVARGO  6 1 

936  IF  (SHPMT  - CAPACM (NTVPE)  » 937,96,96 

937  IF  (SHPVOL' ,00*CAPACV (NTVPE))  938,96.96 

938  IF  (JSAVE  - 33999)  832,831,831 

96  RETURN 

END 
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•RECK  MAIN1 

SURROU  T INF  MAIN 
C CRM ON 

1 NSTVPF,NNPORT,MFTVPF,NTHFA,NTTIN,  TFVAL,  TSTOP*  NSHIP.ROFMT  f 1 21  , 

2 CST  A0MI6I  .CSTTONIB)  . PROOUC  16  , 6 ,8)  . HIST  ( 30  , 10  ) .KKTINF  16,6)  « TTNF  , 

3 KEVENT(410),NEVENT,  TVENT,LVENT1,LVFNT2,LVENT 3,  IOSMIP. KWORO.RN 
CORN  ON 

1 SPEER  < 2*5*  « CAP ACWI  25)  ,C AP ACV  I?  5 » .CSTSE  A 12 51  .CS TP«T  12 5 1 , ORAFT  12  5)  , 

2 KTRANSI25)  ,AOJTRNI25),KARSHPI  25  ) , I SHI  P (4  00  ) , I SHIP?*  VO  0»  . 

3 NPI1TNI10 ) ,NPITN1I1G>,NPTTN2I10)  , NT  IT  Hit  101  , NT  ITN2 1 10  ) . 

4 KPREF l(?5t  * K PPFF 2(25)  ,KCHANG(25) 

COMMON 

1 NFPRT 1(301  »NF  PPT2  13  01,  I TMPRT  ( 301.  TULA  130  > , AOJPRT  <301  ,CSTHOLI30)  * 

2 OFTPPTI30  > ,TTRAN,KFPRT1I30  ) ,KFPRT?I  30  I , AOJRAT .PRTNAMI  30,2) 

COHN ON 

1 NK ARGO,K A RGC (4000  I , ISM,C STSVS, NO  1 ,NQ2,NQ3 ,NQUEUF,KQUEUE 1400) , 

2 KGOGN  1(1000),  KGOGN 2 1 1000) « CGOGN3I 1000) » KG0GN4 1 10  00) »NKGOGN»AOJLO, 

3 AOJCGOIA) 

COMMON 

1 KARGOLI30  ,8,6),NQPORTI30)  , NPRF AC  I 30 . 6)  , KRGSHP  ( 30  .Ml  * TOPORT 1 30)  , 

2 KRGGE  N(  30 , 8) , NPOOL,  I OUT  « TVOLAV  (25)  » TVOLUSI 25 1 ,Ttf AV (6,6) .TVUS 1 6, 6) 
COHMON/A/  ONRN AM (6* 2 1 

COMNON/SEL / TKF (30) 

COMMON /NN/NNTVPFI251 , NC T,  NN AVA  IL . NNNA 
COMMON/NNT A R/N  T AR  I 2 00  ) , NT 

0 1 HENS 10  f ITEMPI1?) « CARGI4) , CHNGTH IS > , NNTVPE (25) 

OIHENSION  NOPI3) 

RATA  I IONRNAMI I, J», J=l,2>, 1 = 1, 6)/5HBERTH,5HLINER.6HMSTS  C,6H0NTRL 
1 « 3HG  AA  « 1H  .6HRFO  / ,6HNAT.  ,6HS/S  CO,  6HNTNR  .6HN/S/S  ,6HCONTNR  / 
RATA  INOP (II ,1=1*3 ) 74  HIT  IN,  5HIN TER, 5HIN TRA/ 

OATA  ICHNGTHII >,1=1,31  /4H80TH, 4HBVRV  * 4HN0NE  / 

NT  =0 

READ  1 5 « 10 1 III  PROnilC(I.J.K>,K  = l,8>.J=l,6>  ,1*1.6) 

10  F0RMATIBF6. 0,32X1 

RE  AO  15.  lit  IIOISTII, J). J=l,  301  ,1  = 1,30) 

11  FORMAT  1 1 OF  6 0 , 20X1 

PFADI5.12)  II  KKTIMEII.J) , J=l, €>, 1=1.6) 

12  FORMAT  13612) 

PEAR  1 5 * 131  AO JLQ, TTRAN*  AOJRAT , (AOJCGOII)  ,1=1,8) , (CSTTUN (I t , 1=1 ,8 > 
1, ICSTAOMIT) *1=1,6) 

13  FORMAT  I11F6.0/8F6. 0/6E6, 0 ) 

WRITE  16,101)  III  PRCOUC(I,J,K),K=l,8)« J=1 , 61 , 1=1, 6) 

101  FORMAT I77H1  PRODUCTIVITY  RATES  BASED  ON  CARGO  TYPE,  TRANSFER  SYSTE 

IN  ANR  FACILITY  TVPF  / I8F12.0)  ) 

WRITE  16,102)  IIOISTII,J),J=1,30), 1 = 1,30) 

102  FORMAT I//30H  0 ISTANCF  MATRIX  FOR  30  PORTS  / C10F12,O!  ) 

WRITE  16,103)  l(KKTIME(I.J),J=1.6),l=l,6) 

103  FORMAT I//32H  I NTFRTHEATFR  CYCLE  TIMES  IOAYS)  7(6(6I3,3X>>  ) 

WRITE  16,104)  AOJCGO,  CSTTON 

104  FORMAT I//48H  CONVERSION  FACTORS  FOR  EACH  CARGO  TYPE  IMT/LT)  / 

1 8F12.2/752H  COST  tt/MT)  FOR  COMMERCIALLY  CARRIFD  CARGO  BY  TYPE  / 

2 8F12.2) 

WRITE  16,105)  ARJLO,  TTRAN,  AOJRAT 

105  FORMAT I//23H  LOAD  ADJUSTMENT  FACTOR  F8.2/  34H  TRANSIT  TINE  TO  OR  F 
1ROM  SHIP  P00L,F8.2/6?H  ACCFPTABLE  PERCENTAGE  OF  HIGHEST  AVAILABLE 
2PR00UC  TIVI TV  RATE  F8.2I 

READ  15,16)  NITIN 


if!  J. 
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14  FORMAT (5110, 3QX) 

IF  (NITIN)  142. 142*141 

141  REAO(5,14)  (NPITIN(  I)  •NPITMKI I « NPTTN2A  II  ,NTIT  M III  • NTITN2  fit*  1*1, 
1 NITIN  > 

ENTRY  INTTAL 

142  TIME  = 0. 

MEVENT  * 0 

00  151  1*1,25 

TVOLAVm  = 0. 

151  TVOLUSIII  = 0. 

00  152  1 = 1,6 

00  152  J = l,6 

T VAV ( I , J)  = 0. 

152  TVUS(I.J)  = 0. 

00  16  I = 1,30 
KFPRTl(I)  = 0 
KFPRT2  <11  = 0 
NQPORT III  = 0 
TQPORT  II I = 0. 

00  161  J=1 , 6 

161  NPRF  AC  (I , J I = 0 
00  162  J * 1,(1 
KRGSHP  (I , J I = 0 
KRGGEN  C I , J > = 0 
00  162  K = 1,6 

162  KARGOL  (I  , J , K)  = 0 

16  CONTINUE 
NK ARGO  = • 

ISH  = 0 
CSTSYS  = 0 
NO  1 = 0 
N02  = 0 
N03  = 0 
NQUEUE  = 0 
NPOOL  = 0 

00  163  I = 1,410 

163  KEVENT III  = 0 
RN  = .00151 

READ  (5,  17 1 (ROENT(I),  I = 1,121 

17  FORMAT  ( 12 A6I 

READ  <5,41  I NS  HIP. NS TYPE, NNPORT  »NFTVPE  *NTWEA  * IOUT.TEVAL , TSTOP.TOEL 
40  FORMAT  (6I5,3F6.0) 

READ  (5,4001)  ( IKE  (H  .1=1,30) 

4001  FORMAT  (30  121 
EVENT 1 = 0 
LVENT2  = 6 
LVENT3  = 0 
T VENT  = TS  TOP 
CALL  PUT 
LVFNT2  = 5 

TVENT  = TFVAL  ♦ TDFL 
CALL  PUT 
L VENT  2 = 3 
TVENT  = 1. 

CALL  PUT 
LVENT2  = 4 
TVENT  = 20. 


CALL  PUT 

READ  (5,141  NVGOGN 

READ  (5,40  It  (KGOGNKI).  KG0GN2II),  KG0GN4(I),  I=1,MKG0GN> 

401  FORMAT  (114,2111) 

READ  (5,411  (NFPRTl(I),  NFPRT?(I>,  ITHPRT(I),  TOLA  ( T t » ADJPRT(T), 
1CSTHOL (I) , OETPRT (T I , PRTNAN(I.l),  PRTNAH(I,2),  I = l.NNPORT  » 

41  FORMAT  (2TB,  II,  4F6.0,  2A6  ,25X> 

REAO  (5,421  (SPEER (Tl,  CAPACWtll,  CAPACV(I),  CSTSFA (It*  CSTPRT(I> 
1,  OR AFT ( I t , AOJTRN(I),  KTRANS(I),  KARSHP(I),  KPRFf 1 ( II , KPREF2(I», 

2 K CHANG ( II , I = 1 , NS  T YPE I 
4?  FORMAT  (7F  8.0, 210,  311, 5X) 

RF AO  (5,431  (ISHIP(I),  ISHIP2(It,  l = 1.NSH1P) 

43  FORMAT  (4( 111 , 161 , 1 2K I 
RE AO (5,501 I NCT 

RE  AO (5  *502 ) (NNTYPE (I)«I=1«NCT) 

RE AO (5, 50 31 NNAVAIL 
RFA0  ( 5 ,5041 NNNA 
>01  FORMAT  (13) 

50?  FORMAT (40121 
5Q3  FORMA  T (131 
504  FORMAT (III 

00  40  3 1 = 1 ,NSH  IP 
OMNER=POO(  TSHIP(  11/100,  10) 

IFIONNER.NE.2)  GO  TO  33333 
ISHIP(II=ISHTO (T) “NNNA* 1000 000 00 
GO  TO  403 

33333  OTVPE=NOO( ISMIP(I) ,100) 

DO  4033  J= 1 »NCT 

IF (OT VPE#E  Q.NNTVPf ( J) ) GO  TO  43333 
4033  CONTINUE 

GO  TO  40333 

43333  NAVAIL=ISHIP(I)/1QQQOOQQO 

IF1NAVAIL.LE. NNAVAIL)  GO  TO  4031 
TF(NAVAIL.EQ.320)  GO  TO  403 
40333  ISHIP(I)=2000P000000*MOn(ISMIP(I),1000000C0) 
bO  TO  403 

♦031  ISHIP(I)=( TSHIP(I)/ 10 000000 0-NNNA) *100 000 00 0»MOniISHTPcr) . 

C 100000000) 

403  CONTINUE 

00  55  I = 1,  NKGOGN 
55  CGOGN3 ( I ) = C. 

TEMP  = TOEL  * TFVAL 

WRITE  (6,60)  ( RPFNT ( I) , 1=1,1?)  ,NSTYPE , NSH IP, NT  HE  A ,NNPORT, NFTYPE, 

1 NITIN, TFVAL, TSTOP  ,TEMP 

60  FORMAT  (32H1  GENERAL  INPUTS  ///6X,25HOATA  inENTTE  *■ 
1CATI0N  IS  12A6///fiX,28HNUNBFR  OF  SHIP  TYPES  JN  GA*F  8X.1H=,I7/ 
26X,23HNUMBFR  OF  SHIPS  IN  GAME  1 3 X. 1 H=, I 7/E X , 26HNUMBFR  OF  THEATRFS 

3 IN  GAME  10X ,1H=T7/6X, 23HNUMBER  OF  PORTS  IN  GAME  1 3X, 1H= I 7/6*. 32HN U 
4MBER  OF  FACILITY  TYPFS  TN  GAME  4* , 1 H= T 7/6 X29HNUMBFP  OF  TTTNFRARIFS 
5 IN  GAME  7X,1H=I7//6X,63HTTME  INTERVAL  BETWEEN  PFRIOOIC  SYSTEM  STA 
6TUS  PRINTOUT  (IN  OAYS)  IS  F 7. 0//6X, 44HT irE  FOR  MAXIMUM  LFNGTM  OF 
7PLAY  IN  OAYS  IS  F7.0  //  6X,45H  FIRST  SYSTEM  STATUS  PRTNTOUT ( *N  0 
8 AYS)  IS  AT  F7.0//1 

no  61  I = 1,6 

WHITE  ( 6 v 6 2 ) I,  (ONRHAM(I,N),N=l,?)»  CSTAOM(I) 

61  CONTINUE 

62  FORMAT (6X, 36HB IFFFRE NTI AL  COST  FOR  OWNER  T YPF  T3-3X,  2A 6, 5H  IS 
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1 F10.2,i6H  OOLtARS/nAY  I 
TF  I NITTN  I 
6101  WRITFI6,6ll) 

6tl  F0BMATI/6X,16HITINERAPV 
ION  I TI NFRAR Yl  I S OROFP)  / 


621,621,6101 

INPUTS/, 10*, 1 3HITINERARY 
1 


NO.,  8X»  28HP0RTS 


612 


61.3 

616 
61 5 
€21 
63 


00  615 
ITFHPI 1) 
ITFNPI2) 

ITFHPI 31 
T TEMP  16) 

ITFHPI 51 
IF  INPITTNII)  - 
ITFHPI 6)  = 
ITFHPI 7)  = 
ITFHPI 8)  = 
ITFNPIR)  = 
ITFHPI  101  = 

K = NPITIN  III 


HOO (NPITN1 
HOO INPITN1 
HOO I NPI TNI 
51 


= i,nitin 

MOOINPTTM(I>,t<?01 
H00INPITN1  IT)' 100, 1001 

111/10000,100) 
m/ioooooo.  too) 
m/ioooooQoa,ioo) 

613.613,612 
MOO INPITN2II)  , 100  ) 

HOO 1 NPITN? 11) /1Q0.10Q) 

HOO  INPITN21I)  /lOOOO.iet!) 

HOO  INPITN? II)/ 10 0000 0,1001 
HOO  INPITN2|T)/iaOOQOOOO. 100) 


J ~ l.K) 


WRITE  16,616)  I,  (ITFHPI J), 

F0RMATI15X,I2,  16X.10I6) 

CONTINUE 
WRITE  I 6, 63 ) 

FORMAT  I36H1...P  ORT  INF  ORMATI 
17HTHFATRF,6X,6HP0RT,6X,6HA0JUST « 4X. 5HC ARGO « 5 X , 4MMAX* ,5X,  9X. 

234HH0.  FACILITIES  AVAILABLE  (BY  TYPE)  / 25X.7HOF  PORT,6X. 5H0FL AY, 
36X»3MF0R.6X ,6H HANDLE ,4X,5H0RAFT  /36X,6HTIME. 6*, 6MPRnOUC 

66X,6HCST/0A,6X,6H1FT1,5X.  RX.2H  1.6X.2H  2.6X.2H  3,4X,?H  6, 

56X.2H  5 , 4 X , 2tl  6 /36 K«6H(0AYS>5X,4HRATE*5X,5H(  £ ) //) 


0 N ///10 X , 6HP0RT, 1 1 X, 


l.NNPORT 

MflOINFPRT III), 1000) 

HOHINFPRT  HI)/tOQO,  1000) 

NFPRTltII/1000000 
H00INFPRT2IC) ,1000) 

HOOINFPRT2II>/1000, 1000) 

NFPPT2IT)/1000000 

I .PRTNAHII.l),  PRTNAH IT,2 ) • ITHPRTII). 

CSTHOLII),  OFTPRT(I),  1 1 TEMP  I N ) ,N= 1 . 6 > 

12,  ?X .2A6.5X, I3,7X. F6. 1 • 5 X , F5 . 3 , 3 X.F8 . 0, 6K. F5 . 0, 5 X, 


TOLA I I ) , 


00  65  I 
ITFHPI  1) 

ITEHP1?) 

ITFHPI3) 

ITFHPI6)  = 

ITFHPI 5)  = 

1TEHPI6)  = 

WViiri  16,66) 

1PPTII)  . 

6f  1AT  I 6X  . 

. »3X,I3>/) 

65  CONTINUE 

WRITF  16,70 ) 

70  F0PHATI//67H  ...SHIP  TYPE  INFORMATION  ///6X, 
16HSHIP ,3X, 5MSPFFQ4X , 5HCARG04X, 5MCARG06X , 4HC0ST  7X,6HC0ST6X,6HSHIP, 
25X ,5HHULH  5X, 3HKO. 3X« 12H  BY  TYPE  6X, 11HCARGO  TYPFS3X. 8HFACTLI T 

3X  3X.6HTHTR  /6X,  6HTVPF  . 

63X.5HIKTS) 5X,2HWT7X,3HVOL5X,6HAT  SEA4X.7HIN  P0RT6X.5MDRAFT6X. 
55HTRANS5X,5HTRAHS,1X,12H  12365  617 X, 1CHPRE FERENC F »2X»4HCHNG  / 
622  1.6H  ILT)  6X.6HIMT)  6X,6Hlt/OA) 

7 5X,6Hlt/OA)6X,6H(FT)5X,6HAOJUST6X,4HSYST  ,3X , 12M( 0=NO, 1=YES)  / 

8 70X ,6HF  AC  TOR  / ) 

DO  71  I = 1, NSTYPE 
ITFHPI  1)  = HOO IKTRANSII), 10) 

ITFHPI  2)  * HOO(KTRANS(I)/ia.tO) 

ITEHPI3)  = HOO IK TRANSIT) /100.10 ) 

ITEHPI6)  = HOO KXTRA  NSII)/1000,10) 

ITEMPI5)  = HOO IKTRANSII)/10000,10) 

ITEHPI6)  = HOniFTRANSm/lOOaOC.lO) 


75 


J 


] 

5 


ITEMP  !7)  * MOO  (K TRAMS (I)  71000008,11) 

ITENPUI  = HODIKARSHPUI  , 10) 

I TEMP  1 9)  3 HOOlKARSHPtI)/10. 10) 

ITFMP!10>  = MOtHKARSHPm  /l«0,10l 
ITENPI11)  * MOnUARSMP!  1)71000.10) 

I TEMPI  12)  * MOOIKARSHPII )/10000,  10) 

JTFNP  = KCHAN6 (I) 

OISTR  = CHNGTHI JTENPEl) 

WRITE  16.72)  I .SPEED II) .CAPACW!!) , GAPACV! lit  CSTSEAII I »OSTPRT ! II , 
10R AFT  1 1) . AOJTRNI t)  . f I TEMPI Ml »N=t .12) .KPREF1 t I) , KPAFF2IT)  ,OTSTR 
7?  EORNAT!AX,T2,3X.F5. 1 , 3X.E7. 0 <2X,FII.O,  ?X  ,F6.  0 .4X.E6.0.5X.E5.0.  4X. 

1 F6.3,5X,I?,3X,6!lX,TtJ.42.5!lX,U>.6X,Ii,4X.Il  • 3X<  A 4 / ) 

SPFFOCII  = SPEE0!I>*?4. 

FI  CONTINUE 

WRITE  (6, 7WQ) 

740  FORMAT  I37H1.  . • CARGO  GENERATEO// 

110X,*NC.  TTPE  ORIGIN  DFSTIN  AMOUNT  *I«ST  F 

?PfO  CHANGE  NFN  LAST*/ 

3?<lx.*PORT*.7X.  *POPT*,  tAX,*nAT*,lfiX,*FRF0*,5X,*FRfO*,AX,*OAT*,///» 

00  745  I=t,NXGOGM 

1 TEMPT  1)  s MOO  (FGOGN1  11)710040.  10) 

ITEMP 1 2)  3 MOOUGOGNlin/lOO.lCO) 

I TEMPI  31  s MOO  1XGOGN1 T I) . 1 00) 

74t  ITEMPI4)  ^ MOO  IXGOGNZ(I)  . lOOOOi)) 

ITFMP(5)=MOOIXGOGN11 I) /10 0000000. 1000) 

ITEMP  16)  ^ MOD  IKGOGN1  11)71000000.100) 

743  ITEMPI7)  = KGGGN4 I I ) 7 100 

ITEMP! Ml  s MOO  IFGOGN4  ! I) « 100) 

ITEMP! HI =K GOGH K I ) /10 00 0000 0000 
HP ITF 16, 74  4 ) I,  IITFMPiJ) , 3=1,9) 

744  FORMAT  1 1 0 X ,1 2 , 7X . 1 2, AX, 12, 9X, 1 2. 7X ,16 , 5X ,1 3 , 7 X ,T 3,7 X , 1 3. 

1 7X.I3.5X,  13) 

745  CONTINUE 

WRITE  16,75) 

75  FORMAT I55M l SHIP  INITIALIZATION  VALUES 
17/  . 6X  « 4HS  HIP 4 X. 4MSH IP4X, 4HSMIP5X*4HSHIP?  X, 6HDELTVF R V4X.4HHCNE4X. 
27HINITIAL,SX.4HTIME  , 2X,* OPERAT IONAL •/ 

3 6X,  3HNO. 5X,4H0MNR4X.4HTVPE4X,9HITINERART4X,7MTHEATRE5X. 

44HP0RT5X,4HP0RT,7X.5M AVAIL  , 3X ,*TYPE*//) 
no  76  I = 1 . NS  HI  p 
JSAVE  = ISMIPI  n/lOOQQOOOO 
TE  I JSAVE  - 3?  0)  761  ,740,740 

7 6Q  NPOOL  = NPOOL  ♦ l 

ISHIP(I)  3 MOD  IISHIPI T) , lOSCOOOOO)  ♦ 30  * lOCOJOOOO 
GO  TO  762 

761  L VENT 1 3 t 
LVFNT2  * 2 
l VFNT3  = 0 
TVFNT  = JSAVE 
CALL  PUT 

ISHIPII)  3 HOD  ITSHTP!!) .100000000) 

762  ITFMPIl)  = MOO !TSHTP!TI/ 100,10) 

ITEMP!?)  3 MOn«TSHIP!IS,100) 

ITEMP!3>  * MOOITSHIP!t)/lQOOO. 100) 

ITEMP14)  = MOO  USE!  P2  (1)7100. 10) 


I 


op*  Noo<TSHipm/i«a«,itt  «i 

MRITEt6«77t  I,  'ITENP(N),  N * i.M  . JSAVE'NOPOP) 

T7  F0RNATI6X, I3.6X, 12, 6X ,12, AX .12 , lit. 12, MX . 12 . 7X .I2.7X, IS, 7* , A«> 
7fi  CONTINUE 
WRITE  16,78) 

78  FORMAT (1H1) 

CALL  TAKE 

RETURN 

ENO 


•OECK  MCVF1 

SUBROUTINE  MOVE 

C COMMON  FOB  GENERAL  INPUTS  AND  VARIABLES 
COMMON 

1 NST  VPE  »NNPORT  »NFT  VPE  » NTME A » NI T IN, TF VAL  , TSTOP.NSHIP.ROENT ( 1?)  • 

2 CST AOM(6) .CSTTONIS) ,PR0DUC(t,6,8) ,DIST(3C,30) .KKTIME (6,6) .TIMF, 

3 KEVEN.  410),  NFVENT  , TVENT, LVENTt  ,LVENT2,LVENT3,inSHIP.KMORO.RN 
C COMMON  FOP  SHIP  VARIABLES  ANB  ITINERARY  PORTS 

COMMON 

1 SPCFO(26) « CAP  ACM ( 25) ,OAPACV(25) .CSTSE A(25> .CSTPPTC25) ,0*AFT(25) • 

2 KTR?NS(25)  tAO.ITPNI  29)  ,KARSHP  f 251  • ISHIP(4C J ) , ISMIPPI400*  « 

3 NPITIM10  ),NPITN1(10),NPTTN2(10)«NTITN1(10),NTITN2(10>, 

A KPRFFK25),  KPPFF  2 ( 25) «KRHANG (25) 

C COMMON  FOR  PORT  VARIABLES  AMO  FACILITY  DATA 
COMMON 

1 NFPRT1M0  ) ,NFPPT2(30),  YTMPRTT  301 , TOLA  ( 30  ) • AOJPRT  f 30)  «CSTHOL (30)  « 

2 OFTPRT 1 30 ) ,TTBAN»KFPRT IT  30 ) ,KFPRT2(30 ) , ADJRAT .PPTNAMT  30*?) 

C COMMON  FOP  CARGO  A NO  QUEUF  INFO 
COMMON 

1 NKARC  C»KA  RGO( 4800)  , ISM»CS TSYS ,NQ1 »NQ2 ,NQ3»NQUEUF »KOUEUF(6QO) » 

2 K GO GN 111000) , KGOGN2 ( 1000 ) « CGO GN3 (1000 ) * KG0GN4 ( 1000) •MKGOGM* AOJLD* 

3 AflJCGO(8) 

C COMMON  FOR  OUTPUT  VARIABLES 
COMMON 

1 KARGDL (30  « 8,6 ) « NOPORT( 30  I , NPRF  AC (30,6),  KRGSHP (30*8) •TQPORT T30 ) , 

2 KRGGE  N(30  » 8) , NPOOL* I OUT*  TVOLAV (25) »TVOLUST  25)  , TVAV (6, 6) . TVUS (6,6 ) 
COMMON/A/  ONRN AM(6  » 2 ) 

COMMON/NNTAH/NTAB(200),NT 
ISAVF  = HOO(ISHIP(inSMIP),l00) 

JSAVF  = MOD(ISHTP( IOSHIP) / 1000 0 , 100) 

KSAVF  = MOOdSHIPdnSMIPl/lOOOOOO,  100) 

MSAVE  = Mon(ISHIP(IOSHIP)/100,10) 

NO  1 = MOD(  ISH IP2( IOSHIP)  / 1000000*100  ) 

IF  ( IS  NIP ( I OSHTPI / 10  0000000)  45. 5. 66 

6 IF  (JSAVF)  50.10,50 

10  SAVTTM  = DT ST (NOl, KSAVF) /SPEED ( IS AVE ) 

15  CSTSYS  = CSTSVS  ♦ SAVTTM  • (CSTSFAT ISAVE)  ♦ CSTAOMCMSAVF) ) 

20  LVFNT1  = IHSHIP 
LVFNT2  = 2 
LVFNT3  = 0 

TVENT  = ri>€  ♦ SAVTIM 
CALL  PUT 

IF(IOUT)  25,25,24 

24  WRTTE  (6,86)  TIME,  IOSHIP,  NQ 1 , KSAVF  , TVENT 

2s  no?  = Mnn(Kvopo/ioooo, ioi 

NT  =NT  * 1 

NTAB(  NT)=  ( ((MOndSHIPdOSHIP)  , 100)  ) • 1 0 0 ANQ 1 ) * 100+KS  AVF) • 

C 10  000  0 d VE  NT 
NQ3  = 0 

CALL  OUEUF 

IF  (N03  1 75,30,75 

30  IF  CNQ2  - 3)  35,35,60 

36  KFPRTl(NOl)  = KFPRTMNOl)  - 10 0 0** (N02-1 ) 

CALL  TAKE 


40  KFPRT2 (NOl ) = KFPP  T2 ( NQ1 ) - 10  0 Q CM  Q2- 4) 

CALL  TAKE  I 

45  NPOOL  = NPOOL  «•  1 


CSTSTS  * CSTSVS  * TTRAN*(CSTSE A ( ISAVFI  « CSTAOMCMSA  VE)  I 
IF  ( IOlfTI  25,75,66 
(.6  MSAVE  « NOOIISMIP2  I IOSHIP)  / 10  0,10) 

WRITE  16,471  T IME, ID SHIR, NO 1, MS A VF 

47  FORMAT  (/10X, 4 MAT  .F5.1.16H  OATS,  SHIP  NO.  ,I3,14H  IF  ATI  NR  PORT  . 
112. 5?H  TO  JOIN  TMFATER  POOL.  CURRENT  OELIVERY  THEATER  IS  .13) 

GO  TO  25 

SO  I * I SHIP? (T05HTP) /li II 00000 

IF  (I)  55,99,56 

55  IF  (1  - SI  60,60,70 

60  SAVTIM  s HOOINTJTNII JSAVE>/10*  •*(I-1).100> 

66  IF  (NSAVF  - 1)  15, 20, 15 

70  SAVIIN  « M00(NTITN2(JSAVE) 7100  *•11-6). 100) 

GO  TO  6f 
75  ISH  s NQ2 
GO  TO  66 

86  FORMAT  1/10  X . AH  AT  .F5.1.16H  OATS,  SNIP  NO.  ,I3,14H  LFAVIMG  PORT  , 
112, 16H  BOUND  FOP  PORT  ,12  , 7H  ETA  * ,F5.1,5H  OATS  ) 

99  WRITE  (6,101) 

101  FORMAT  I///79H  TOUR  ERROR  IS  THAT  A SHIP  IS  LEAVING  A FACILITY  TTP 
IE  7ERU  WMTfiK  IS  NONEXISTENT///) 

CALL  FNOGAM 

RETURN 

FNO 


79 


•UFCK  P0RT1 

SUBROUTINE  PORT 
CCMMON 

1 NSTVPE,NNP0RT,NFTVPF,NTHFA ,NITIN,TFVAL, TriOP, NSHIP.PnFNTI 121, 

2 CSTAOMI  I)  ,r.STTON(A  » .PROOIlC  (6,  6,  A)  .1*1  ST  I 31, 3b  > .KKTTMFt  S,M  ,TTMF, 

3 KEVFNTI410* .NFVFNT  , TVFNT  , LVFN  T I ,LVFN  T 2 , LVEN I J , TOSMT  P,  If  WOPf*.  PN 
r OHN  ON 

1  SPFF  0(25* , CAPACWI  25*  ,C AP AC  V I 2 5 * , CSTSF  A I 2 6)  ,C  S TPRT  I ? 5 I . [JR  A FT  I 25  * , 

? KTRANSI25*  .AfIJTRM  25  * ,KA  RSHP I 25  » ,'T  SMT  P <4  0 0 I . I SMTP?  I 40  0 > . 

.1  NPIT  INI  10  I ,NPTTN1 1 10>.NPTTN2tl0*,NTITNl< 10*  ,NTITN2f 10*  « 

4 KPRFF  1(25  * , KPPFF 2175) ,KCMANG (25* 

COMMON 

1 NFPR  T 1 ( 30  » .NFPPT2I  30*,  ITHPRTI  3 01,  TOLA  130)  , AOJPPTI30*  ,CSTHI*L(3  0», 

2 OFTPPTI30  * ,TTRAN,KFPRT1(30* ,KF PRT 2130 ) , AOJRAT ,P»TNAMI 3 0.2* 

COMMON 

1 NKARGC, KAROO  1 4000  * . T SW. CS  TS VS  , NOl,  NQ2  . NQ3  , NQU EOF , KOIJFUF (4  00 * . 

2 KGOGN1I  10  0 0)  , KGOGN  2 1 10 00  * . C GOC.N3  1 10  00*  , K G0GN4  ( 1000)  , NKGOGN,  AOJLO  . 

3 AOJCGOIA* 


COMMON 

1 KARCniOO.  A,6*,NOPO»TI30»  « NPRF  ACI 30  » 6 * , KRGSHP  1 30  , A * .TOPOPTMO*. 

2 KPGGFNI30  ,A*,NPOOL,  I OUT,  T VOL  A V (25* » T VOLUS  I 25 ) ,TVAV(6,  M«TVUSIF>»6* 
COMMON/A/  ONRN  AM (f>«  2 * 

COMMON  79/  NTRANI6*  .MNFACI10  * rKCARGIf.*  . NTE MP t 6 * , 1 1 , I,  NPORT  , NTVPF, 

1 J.LL,SHPWT,SHPVOL.NFAC.SAVTIM 
weight  =ofns  TT  V =VOLUMF=  0.0 
IF  IISW)  1,1, so 

i ntvpe  = MoniisHiPi insHiP* , ico* 

NPORT  = NOOIISHIPIIOSHTP* /1000000. too* 

T = 1 

karamt  = o 

KART  VP  = o 

LSAVF  = NPORT  ♦ 100  * IT1SHTP 

4 IF  I MOOIKARGO II*, 100000)  - LSAVF*  7.5.P 

5 MSAVE  = KARGOII)  7 1000000 
IF  IMSAVF-KARAMTI  7,7,6 

6 KARAMT  = MSAVE 

KART  VP  = MOOIKAPGOI  1)7100000,  10* 

7 I = I ♦ l 

IF  1 1- NK  AR  GO)  4,4,0 
A I = 1 

LL  = MOOIKTPANSINTYPF) ,10) 

NSAVF  = KTRANS  INTVPF ) 7 10 
9 NTPANII*  s MOOf  NSAVE7*0**(I-1»  ,10  * 

I = T * 1 
IF  1 1- 6)  9,9,12 

12  I = 1 


13 


1501 
150  2 

150  3 


IEX  = 1000 
NTEMPII  * 

NtFMPI  1*3* 

NNFACII  * 

NNFACI 1+3) 

1 = 1*1 

IF  1 1- 3*  13,13,1501 
IF  IKPREF1  INTV  PF  * * 
I = KPREF l l NT  V PF  * 

IF  I NNFACI T)-l  I 
IF  IKPREF? INTVPF*  * 


**( 1-1* 

= MOOINFPRT 1 (NPORT*  / IFX  ,1000* 
= MODI NFPRT2 I NPORT*  7 IFX  ,10QC) 
= NTFMPII  * - MOO  (KFPRT1 (NPORT* 
= N TEMPI  1*3)  - MOn(KFPRT2(NPORT* 


15,16, 1502 

1503,39,39 

1509, 1509,  1504 


IF  X, 1000* 
IFX, 10001 


3LM  tiki*.  . 
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1505*39.39 


ISO*  I * KPREF2 (MTVPF) 

IF  (KNFACIT)  - 1) 

1505  I = KPREF1  (NTYPE) 

IF  INTFHPI 1 1 ) 1500, 1500,1507 

150  7 JSAVE  = l 
GO  TO  56 

1500  I = KPREF2IMTYPF) 

1509  IF  INTEMPI 1 1 » 15,15. 150  7 

15  IF  (KAFANT  ) 161,22.161 

161  I * 1 
SAVE  • 0. 

162  IF  I MTRANI III  163,20,163 

163  J = J 

166  If  1NTFMP (Jl)  19.19,17 

17  IF  (PROOUC  (J,I .FARTVPI -SAVE)  19.19,10 
IS  SAVE  - PROOUC  ( J,  I,  X ARTYPI 
JSAVE  = J 
ISAVF  = t 

19  J = JM 

IF  IJ-6*  166, 164.24 

20  1 = 1*1 

IF  (T-6)  162,162,30 

22  I = 1 
MSAVF  = 0 

23  TF  C NMFACI  I l-MSA VE)  25.25,26 
26  NSAVE  = NNFACI II 

LSAVF  = I 

25  1=  1*1 

1^  C 1-6)  23,23.26 

26  IF  f NSAVE)  60,60*27 
f 7 T = LSAVF 

GO  TO  39 

3C  IF  ( K'HFAC  ( JSAVF)  l 31.31,30 
31  Pf ST  = 0. 

SAVE  = SAVE  * AOJRAT 

ji  = l 

3.’  IF  C NNFACI  III  35.35,33 

33  TF  (PROOUC  J I * T SA VF» K ARTVP ) - BEST*  35,35,36 
36  OFST  = PROOUC! I. ISAVF.KAPTYP) 

5SAVF  = I 

35  I = T * 1 

IF  IT-61  32.32,36 

36  IF  I BFST  - SAVE)  66.66.37 

37  I = KSAVF 
GO  TO  39 

30  I = JSAVF 

39  IF  1 1-  3)  392,392,391 

391  KFPRT  2 (NROR  Tl  - KFPRT  2(NPORT  ) ♦ 1000**11-6) 
GO  TO  393 

392  KFPRT1  IMPORT!  = KFPRT1INPORT » ♦ 1000**11-1) 

393  NPRFAC IMPORT, I)  = NPRFAC I NPORT , I > ♦ 1 
KOWNFP  = MOnilSHTPlinSHIP) 7100,10) 

NF  AC  = 1 

kmoof  - rion«isMiP(insHiP)/iooo  ,io> 

SAVT  rw  = 0. 

L = 1 
N = 0 
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3931  MSAVE  * IDSHIP*1I0  ♦ NPORT 

IF  (H00  (KARGOIL),  190000)  - NSAVE) 
399  L * L ♦ 1 

IF  IL  - NK  ARGO  t 
399  IF  IN) 

399  KSTART  = L - N 

KSTOP  * NK ARGO  - N 
DO  397  L = KSTART, KSTOP 

K * L A N 

39  7 KARGOILI  * KARGOIK) 

KSTART  = KSTOP  ♦ 1 
KSTOP  = NK  ARGO 
DO  396  L = KSTART .KSTOP 

396  KARGOIL)  = 0 

NKARGO  = N K ARC  0 - N 
GO  TO  70 

399  KARGMO  = KARGOIL) 

N = N A 1 
GO  TO  60 
90  00  900  JJ=1,( 

900  NT RANI JJ)  = 0 
J = 1 

I = 1 


399.399.395 

3931.3931.395 
70,70,396 


91  IF  I H OO IK  QUEUE 1 1) , 100)  - NPORT ) 99,97,97 

92  J = MOOIKQUEUE  ID/100000,  10) 

NTRANIJ)  x NTRANIJ)  ♦ 1 

IF  IJ-1)  99,99,93 

93  IE  I NTRAN I J— 1 i » 931.931,55 

931  IF  (NTEMPI J— 1)  > 95,55,55 

99  I = 1*1 

IF  (I-NQUEUF)  91,51,57 

55  JSAVF  s J-i 

56  KT IMF  = 10,  • TTMF 
NO  1 x MPORT 

NQ2  = JSAVF 


NU3  - NPORT  » I luu*  I IOSHIP  ♦ 1000 
IF  IIOUT)  962,962,960 
560  MRTTF  16,561)  TINE  > IOSHIP,  NPORT, 
96?  CALL  QUEUE 
CALL  TAKE 

97  IE  INTRANIJ)  ) 961,979.561 

579  IF  I NTEMPI  J ) ) 581,581,960 

560  J*"AVE  = J 
CO  TO  96 

561  -MSAVE  = 500 

JSAVE  = 0 
I = 1 

590  IF  INTRANI I ) - MSAVE)  5901,992,592 

5901  IF  INTEMP  II)  I 592,592,5qi 

991  MSAVE  = NT  RAMI  I) 

JSAVE  = I 
59?  I = 1*1 

IF  1 1-6)  990,990,96 

50  I = ISM 
ISW  = 0 

NPORT  = MO  0 (NOS, 100 ) 

IOSHIP  = H0niN03/l 00,1000) 


* t JSAVE  A 10  * KT IMF ) J ) 
JSAVE 


82 


. Jl  \ -s 


.>Alteliii,.Mr.  ■ — * 


IF  UOtm  50  2,502,580 
500  WRITE  (6,531)  TI MF  » lOSHlF,  ' 

50  2 LSAVE  = NOT  / 1000000 

SAVE  = FLOAT (LSAVF)  / 10. 

SAVE  = TIME  - SAVE 

TQPORT (NPORT)  = TQPORKNPORT ) ♦ SAVE 

NTYPE  = NOOdSHTPI  IDSMIP)  , 100) 

KOWNER  = MOO(ISHIP(IOSHIP)/10O,10) 

CSTSY5  = CSTSVS*SAVEMCSTPRT(NTVPF)*CSTABM(KOWNFP)  ) 

K = 1 

LL  = MOO(FTRANS(NTYPE),lfl) 

NS AVE  = KTRANS(NTYPF)/10 
51  NTRANIF)  = HOO  (NSAVE/10**  K-l)  ,10) 

*=*♦1 

IF  (F-  6)  51, 51,35  3 

60  K APT Y P = MOOCK APGWO / 100 000 . 10) 

KARAMT  = KARGWO/iOOOOOO 

VOLUHE  = FL  OAT ( KARA  FT) / ADJCGO (FARTYP)  ♦VOLUME 
WEIGHT  = FLOAT (FARANT)  ♦ WEIGHT 
OENSIT  Y=  WEIGHT/VOLUHE 

KARGDL (NPORT«FAPTYP«FOWNFR)  = KARGOL (NPORT , KARTYP, KORNER)  ♦ FARANT 
1 = 1 
SAVE  = 0 

61  IF  (NTRAN(II)  62,63,62 

62  SAVE  = SAVE  ♦ PROf)  LO  ( NFAC.  I.FARTYP) 

63  I = I ♦ 1 

IF  (I-  61  61,61,6V 

64  TF  ILL-1)  66,66,65 

65  SAVE  = SAVE  • APJTRN(NTYPE) 

66  IF (SAVE.GT • 0. ) GO  TO  67 

GO  TO  354 

67  SAVTIM  = SAVTIH  ♦ FLOAT (FARAPT )/ (SAVE*  AOJPRT ( NPORT) » 

GO  TO  304 

70  ITINN  = NOOdSHIPdOSHIPl/lOOOO  ,100) 

CKRGSUM  - SUMS  CARGO  A80AR0  IN  WEIGHT  ANO  VOLUME  FOR  SHIP  NUNBFR (IDSMIP) 
no  700  I = l. to 
700  NNFAC(I)  = 0 
I = 0 
L = 1 
SHPWT  = 0 
SHPVOL  = 0 

71  IF  ( HOO  (FARGO  (D/100,1000)  - IOSHIP  ) 75,72,76 

72  ISAVE  = NOO (FARGO( L ) 7100080,10 ) 

SAVE  = KARGO(L)  / 1000000 
SHPVOL  = SHPVOL  ♦ SAVE 

SKPWT  = SHPWT  ♦ SAVE  / ADJCGO ( IS AVF) 

IF  (1-10  ) 73  , 75  , 75 

73  ISAVE  = HOO(FARGOIL) , 100) 

IF  (I)  731,74,731 

731  IF  (ISAVE  - NNFAC(I)  ) 74,75.7V 

74  I = I ♦ 1 
NNFACd I)  = ISAVE 

75  L = L ♦ 1 

IF  (L-NFARGO)  71,71,76 

76  DO  761  I = 1,5 
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77  T r CKMOOF  - 1)  770,771.770 

*70  MSA  VF  S IT  HPRT  'IMPORT  I 

r.o  to  80 

7/1  msavf.  = MonasHip?!  rnsHTPi /ioo.ioi 

IF  ( TTHPRT «NPC»T)  - MSAVF)  80,772.80 
77?  MSAVF  = MOP 1ISHTP2 ( IOSHIPJ . 110 » 

MSAVF  = TTHPRT  (MSAVF) 

AO  I = 1 
>1  = 1 
TI  = 0 

At  r F II  - NPOPTI  82.842,6? 

ft?  IF  I TTHPRT  III  - MSAVF)  84?, S3, 84? 

AT  IF  (DFTPPT III -TIP.  AFT 1NTVPF ) ) 642.830,630 

830  CALL  LOAD 

IF  (J  - NKGOGN)  831,631,942 

831  IF  (SHPWT  - CAPACW(NTYPF)  ) 632,942,942 

83?  IF  (SHPVOL-«80*CAPA0V(NTYPF)  ) 842,942,942 

A4?  I = I ♦ l 

TF  (I  - NNPORT)  61.61.942 

94?  T = l 

NSAVF  = 999999 

JSAVF  = 0 

99  J = NNFACf I I 

IF  (J)  951,994,951 

951  IF  1 1 T HPRT  ( J)  - ITHPRT  (NPJRT)  ) 954*952,954 

95?  TDTST  = 01 S T( N PORT . J ) 

IF  IIPIST  - NSAVF)  953.954.954 
953  NSAVF  = If)  1ST 
JSAVF  = „ 

95 A I = I . 1 

TF  (1-10)  95.95,q7 

97  IF  (JSAVF)  110,98.110 

98  IF  ( KM  OOF  - 1)  150,  120,150 

110  NSAVF  = MOnaSHTPlinSHIPt,  1000000) 

TSHI  P(  TOSH  TP)  - NSAVF  * JSAVF  * 1000000 
IF  (KMODE  - 1)  117.112.117 

112  IF  (II  INN)  117,113,117 

113  IF  (SHFMT-CAPACM(NTTPE))  114,117,117 

114  IF  (SHFVOL-.80*CAHACV(NTYPF))  115,117,117 

115  IF  (OFTPRT (JSAVE)-ORAFTfNTYPF) ) 117.116,116 

lie  TI  = 1 

J = 1 
I = JSAVF 
CALL  LOAD 

117  CSTSYS=CSTSYS* (TOLA (NPORT) ♦SAVTIK) * (CSTPRT(NT YPE) ♦nSTAONIKOHNERl ) 
CSTSYS  = CSTSTS  ♦ S A VT I M*C STHOL  C NPOJIT) 

1171  NSAVF  = H0n(ISHTP2(I0SHIP). 1000000) 
l SAVE  = ISHIP? (IOSHIP)  / 100000000 

I S HI P? ( I OS  H IP ) = NPORT*  1000  000  ♦ NSAVF  ♦ LS A VE  * 10*000000 

TVENT  = TIME  ♦ SAVTIM  ♦ TfU  A (NPORTl 

LVENT1  * IOSHIP 

LVFNT2  = 1 

LVENT3  = NF  AC 

IF  (IOUT)  119,119,118 

118  TOUT  = TVENT  - TIME 

SCN  = 100.  *SHPV0L  / CAPACV INTYPE) 

HR ITF  (6.11611  TIME, IOSHIP,  NPORT • NFAC,  TOUT  .SHPVOL.SCN 
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IF  (VOLUME)  119.119, 80000 


00000  IF (KTP ANSI N TYPE) 

• E9* 

11 

> 

NCGO 

x 

1 

IF (K TRANS ( NT YPE> 

,EQ. 

1000001 

) 

NCGO 

X 

3 

IF(KTRANS(NTYPEI 

,EO. 

1001 

) 

NCGO 

X 

5 

IF (K TRANS (NTYPEI 

,EQ. 

10001 

) 

NCGO 

X 

4 

119  CALL  PUT 
CALL  TAKE 
RETURN 

120  MSAVE  = M00CISHIP2II BSHI P) / 100  * 10) 

IF  (ITHPRT  (NPORTl-'HSAVE}  130.121.138 

121  LSAVE  = MOO(ISHIP2(inSHIP),180) 

IF  (SHPWTI  1251.1251.1221 

1221  1=1 

MSAVE  = 999999 
KSAVE  * 0 

123  J = NNFACI I) 

IF  (J)  1230 ,124. 1 230 

1230  IF  (J-LSAVF)  1232.1231.1232 

1231  KSAVE  = J 
GO  TO  122 

1232  IDIST  = DISK  J, NPORT) 

IF  IIOIST  - MSAVE)  1233.124.124 

1233  NSAVE  = 10 1ST 
KSAVE  = J 

124  T = I ♦ 1 

IE  11-10)  123,123,125 

125  IE  (KSAVE)  127,1251.12? 

1251  KSAVE  = LSAVE 

127  SAVE I = OISKKSAVE. NPORT)  / SPFEDCNTYPE) 

SAVE I = TIME  ♦ SAVTIM  * SAVEI  ♦ TDLA (NPORT) 

NSAVE  = SAVEI 

ISHIP2(inSHIP)  = MDOITSHIP2»IDSHIP) , 1000)  ♦ 1000  * MSAVE 

128  NSAVE  = MOOdSHIPdnSHIP)  ,1000000) 

TSHIP ( IOSHIP)  = NSAVE  ♦ KSAVE  * 1000000 
GO  TO  117 

130  IE  (SHPVOL  - .80  * CAPACV ( NT YPE) ) 1301.140.140 
1301  IE  (SHFWT-  .80*  CAP  ACM (NT YPF ) ) 131,140.140 
131  MSAVE  = M0n«SHIP2  ( TOSHIP) /100 , 10) 

NSAVE  = ITHPRT (NPORT) 

ISAVF  = KKTIME (NSAVE, MSAVF) 

JSAVE  = MOO(IS HI P2(I OSMIP ) 21000  .1000  ) 

LSAVE  = TIME 

JSAVE  = ISAVE  - JSAVF 

IE  (3* JSAVE  - ISAVE)  1322.1322,1321 

1321  IE  (SHPVOL-  . 2 *CAPACV (NTYPF ) ) 1322.1322,140 

1322  I = 1 
J = 1 

SAVEI  = a. 

M = 0 

SAVEJ  = 0. 

133  IF  (ITHPRT (I)-NSAVE)  1354.1330,1354 

1330  IF  (I  - NPORT)  1331.1354,1331 

1331  IF  (OFTPRT«I»-OPAFT(NTYPE))  1354,1332,1332 

1332  IF  (KPREF1 (NTYPEI ) 1333,1333,13320 

13320  00  13321  JI  = 1,3 

IEX  = 1000  **(JI  - 1) 

NTFMP(JI)  = MOOfNrPRTl (I)/TEK.  1000) 
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13321  NTEMPI JI *3 ) = H00(NFPRT2( I) /IEX, 10001 
JTEMP  = KP  RFF1 (NTYPFI 

IF  INTEMPI JTFHPI I 13322.13322,1333 

13322  IF(!:PPEF?(NTYPEI)  1 354,  1 J54,  1 3323 

13323  JTFHP  = KPREF? (NTYPF) 

IF  ( NTEHPI  JTEMP)  I 1354.1554,1333 
1333  K = 1 

134  IF  (ITHPRT (KI-MSAVFI  135,1341.135 

1341  TF  ( OFTPRT  CIO  - DP  AFT  (NTVPE)  I 13  5,1342.1342 

1342  IF  (KPREF1  (NTYPFI  I 1343,1343,13420 
13420  00  13421  JI  = 1,3 

IEX  = 1000  **IJI  - II 
NTFMPIJII  = NOO<NFPRTl(K)/IEX,  10001 
13  421  NTFMP ( JI *3  I = MOO (NFPRT2 IK  I / IE  X , 1000  I 
JTEMP  = KPRFF1 (NTVPE) 

IF  (NTEHPI JTEMP))  13422,13422,1343 

13422  IF(KFREF2(NTYPF>>  135,135.13423 

13423  JTEMP  = KPRFF2 (NTVPE ) 

IF  (NTEHPI JTEMP) I 135,135,1343 

1343  I SAVE  = K ♦ 100*  I 
GO  TO  13722 

135  K = K ♦ 1 

IF  (K  - NN PORT ) 134,134,1351 

1351  TF  (SAVE!  - SAVFJ)  1353,13  53,  13  52 

1352  JSAVF  = I 
SAVEJ  = SA  WEI 

1353  SAVFI  = 0. 

1354  1=1*1 

IF  (I  - NNPOftT)  133.133,1361 
1361  TF  (SAVEJ  - 500.)  136,110,110 

13  f.  TF  (SHFNT)  160.168.  140 

137  IF  (MOOIKGOGN1 (J), 10000)  - ISAVE)  1 1372,135 

137)  J = J ♦ 1 

1372?  IF  (J-  NKGOGNI  137.137,1351 

1372  1 =1 

JSAV2  = MOHIKGOftNK  JI/10000.101 

1373  IF  (KCARG(LI-JSAV2I  1374, 1375 ,1374 

1374  L = L ♦ 1 

TF  (L-51  1373,1373,1371 

1375  SAVE!  = SAVEI  * CGOGN3I JI 
GC  TO  1371 

140  I = 1 

TSAVF  = 449994 
KSAVF  = 0 

141  IF  (NNFAC(TI)  142.143,14? 

14?  J = NNFAC(T) 

10 1ST  = 4T  STINPPRT » J) 

IF  ( TOIST-ISAVFI  1421,143.143 
1421  ISAVF  = iniST 
KSAVF  = J 
143  1=1*1 

IF  (1-101  141,141,144 

144  TF  (KSAVF)  1441,145,1441 

1441  7V0LAV (NTYPFI  = TVOL A V ( NT YPF I ♦ CAPACV (NTVPE) 
TVOLUS (NTYPF)  = TVOLUSINTYPFI  ♦ SHPVOL 
IP  = ITHPRT (NPOPTI 
JO  = TTHPRTIKS AVE) 
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14  5 
ISO 


151 

1512 

15121 

1514 


15141 


1515 

1516 

1513 

152 

1521 

1522 
15  221 


15222 


1523 

1524 

153 

154 
1541 

1 542 

1543 

1544 

155 

15€ 

1561 

1562 

1563 

157 

156 
155 
160 


TVAV(IP,JO)  = TVAV(lP,Jfl)  ♦ CAPACV(MTYPE) 

T VUS ( IP*  JO  I = TVUS(TP,JO)  ♦ SHPVOL 
GO  TO  126 

WRITE  (6,  1 46)  IOSHTP,  NPORT,  MSA  VF 

CALL  F NOG A M 

NSAVP  = ITHPRT  (NPOR T) 

1 = 1 
K = 1 
SAVE  I = 0. 

SAVEJ  = 0. 

IF  (ITHPRT <T>-NSAVF)  1543.1512,1543 
TF  (OFTFRT  (I)-IIPAFT  (NT  VPF)  ) 1543.  15121,  15121 
IF  (KPREFI (NTYPF) ) 1513.1513.1514 

00  16141  JI  = 1,3 
IEX  = 1000  *MJI  - 1) 

NTEMP(JI)  = MOO(NFPRT 1( T) /IEX. 1000) 

NTFMP  ( JI4-3  ) = MPD(NFPRT?(T)/IFX,  1000» 

JTEMP  = KP»6F1  (NTYPF) 

IF  ( NTEHP( JTEMP) ) 1515,1515,1513 
IF  (KPREF?  (NTYPF))  1543,1543,  1516 
JTFMP  = KPRFF2 (NTYPF) 

IF  (NTFMP( JTEMP) ) 1543,1543.1513 

J = l 

IF  (ITHPRT  (J)-NSAVE  ) 153.  1521,153 

IF  ( OF  TPR  T ( ,1)  - OR  AF  T ( N T YPF I > 15  3,1522.1522 

IF  (KPREFI (NTYPF) ) 155,155,15221 

00  15222  JI  = 1,3 
IEX  = 1000  **(JI  - 1) 

NTFMP ( J I ) = MOD(NFPRT1(J)/IFX,1000) 

NTEMP ( JI 63 ) = MOO (NFPRT2I J ) /IE  X,  1000) 

JTEMP  = KPPFF1 (NTYPF) 

IF  (NTEMP (JTFMP))  1523,1523,155 
IF  (KP«EF2(NTYPFI)  153.15  3,1524 
JTFMP  = KPREF2 (NTYPF1 
IF  (NTEMP( JTEMP))  153,153.155 
J s J ♦ 1 

IF  (J  - NNHORT  ) 152,152.  154 

IF  (SAVEI  - SA  VF  J)  1542.1542,1541 

SAVEJ  = SAVFI 

KSAVF  = I 

SAVFI  = 0 

1 = 1*1 

IF  (I  - NNPORT)  151,151,1544 
IF  (SAVEJ)  160,160,126 
MSAVF  = J ♦ 100  • T 
GO  TO  154 

IF  ( MOO(KGOGNlfK)  ,10000)  - MSAVE)  156,1561,  153 
L r 1 

LSAVE  = MOO(KGOGNl( K)/lOOOO, 10) 

IF  (LSAVE  - KCAPG(D)  1563,157,1563 
L = L * 1 

IF  (L  - 5)  1562,1562,153 

SAVEI  = SAVEI  *CG0GN3  ( K) 

K - K ♦ 1 

IF  (K  - 4KGOGN)  156,156,154 

JSAVE  = TIMF  ♦ TfRAN  ♦ SAVT IN  ♦ TDLA(NPORT) 

IF  (JSAVE  - 320)  1602,1602,1601 
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1601  JSAVF  = J2<! 
r.O  TO  1604 

1*0?  IF  (TTPAN  - 1.  ) 1603,1604,1604 

1*0?  JSAVF  = JSAVF  * 1 

160*  NSAVF  = MOOIISHTPJ TOSHIPH .loooooaoo  » 

ISHIP(IOSHTP)  = JSAVF  * 1000000  00  * NSAVF 

GO  TO  117 

170  T = 1 

on  1700  jj  = l.io 

17&Q  NNFACJJJ)  = 0 

KK  = NPITIN1IT INN) 

171  NNFAC(I)  = MOO  (NPI TN 1 ( I T I NN) /100»*  CT-1)  , 1001 
1 = 1*1 

IF  (1-5)  171,171,17? 

17?  IF  (KK  - 61  17.?,  173, 171*1 

1721  T = 1 

1722  NNFAC(I*5)  = MOO C NPI T N2 ( IT  I NN) / 100 ** ( I- 1 ) , 100 1 
1 = 1*1 

IF  (I  - KK  * 5)  172?,  1722, 1 73 

173  JJ  = 1 

174  TF  (NNFAO(JJ)  - NPOBT)  1 74 1, 1 7% 4,1 741 
1741  JJ  = JJ  ♦ 1 

TF  (JJ  - KK)  174,174,1742 
1 747  WRITF  (6,1 743) 

CALL  FNOGAM 
1744  KSAVF  = JJ 

IF  (KOWNFP  - 1)  175,180,174 

175  II  = ? 

1751  JJ  = JJ  ♦ 1 

TF  (JJ  - KSAVF ) 177.1762,177 

176  IF  (SHPWT  - CAPACWINTVPFI)  1761,1762,1762 
1761  IF  (SHPV&L-.80*CAPAOV(NTVPF)  ) 1751,1762,1762 
176?  IF  (KSAVF  - KK)  1764,1763,1764 

1763  I = 1 

F.O  TO  1765 

1764  I = KSAVF  ♦ 1 

1 765  KSAVF  = NN F AC ( I ) 

ISHIP? (IDSMIP1  = MOO (ISHIP2 ( IOSHIPI , 100000000)  ♦ I * 100400000 
no  to  128 

177  IF  (JJ  - KK)  1772. 1772,1771 
1771  JJ  = 1 

IF  (JJ  - KSAVF)  1772, 1762, 1772 

177?  J = 1 

I = NNFAC(JJ) 

CALL  LOAD 
F.O  TO  176 

180  IF  (KSAVF  - KK)  1801,1802.1801 
1801  I = KSAVE  ♦ 1 

GO  TO  1803 
180?  I = 1 

180  3 NFXT  = NNFACtT  ) 

ISHIP?  (IDSMIP)  = MOO  ( TSHTP2  1I05MIP).  10000  00  00)  *-  T » 100000000 
ISAVF  -=  10.  * ( TIME  ♦ iO.) 

NNFAC(JJ)  = 0 
J = NEVFNT 

181  IF  (MOO(KFVFNT  (J),  10000)  - ISAVE)  1811, 1 81 1 , J.  90 
1811  NSAVE  = MOO (K£ VFNT (JI/10 0000,100) 


IF  INSAVF  > 1)  182,1822.182 
182  IF  INSAVE  - 21  1821.1822,1821 

1821  J = J - 1 

TF  IJ)  181,190.181 

1822  JSAVE  s KEVFNT (JI/IOOOOOQO 

IF  (MOOIISHIPI JSAVE) /lOflOIO.lOD)  - MPORT)  1821,1829,1821 
1829  NSAVE  = MOO (ISHIP2 I JSAVF) /180,  IQ) 

NSAVF  = MODIISHIPf  JSAVE).  1QOI 

IF  I NSAVE  - ITHPRTIMPORT)  ) 1829,1821.1826 

1826  IF  INODIISHIPI JSAVE) /108. 18)  - 1)  1829,1821,1829 

1829  IF  IMOOIISHIPI  JSAVF)  t 10000.100  ) ) 1830,1830,1821 

1830  1=1 

1831  JSAVE  = NNFACI  I) 

IF  I JSAVF)  1832, 1899,1832 

1832  IF  IITHPRTIJSAVF)-  NSAVE)  1895, 1333. 1895 

1833  IF  IOFTPRT (JSAVE)  - DRAFT (HSAVE) ) 1895,1839,1839 

1839  IF  IKPREF1IMSAVF)  ) 1899,1899.1835 

1835  DO  18361  K=l, 3 

IF*  = 1000  **  CK  - 1) 

NTENPIK)  = MODINFPRT1IJSAVE)/TEX,1080) 

18  361  NTEMPIK*3)  = MOD  ( NFPRT2 I JSAVE ) /IFX.  100 0) 

JTFMP  = KPRFF1IMSAVE) 

IF  INTENPI JTFMP)  ) 1836,1836.1895 

1836  IF  I KPREF2 ( MSAVF) ) 1855,1855,1837 

1837  JTEMP  = KPRFF2  IMSAVF) 

IF  INTEMPIJTEMP))  1855.1855,1895 

1899  NNFACI  I)  = 0 
1895  I a I \ 1 

IF  II  - KK)  1831,1831,1021 

190  II  = 3 

JJ  = KSAVE 
1901  JJ  = JJ  ♦ 1 

IF  IJJ  - KSAVF)  196,193,196 

191  IF  ISHPHT  - C A PACK  INTYPE) ) 192,193.193 

192  IF  (SHPVOL-,80  *C APAC V INTYPF ) ) 1901,193,193 

193  NSAVF  = NOOlISHTPUnSHIP)  .ICjOOOO) 

ISHIP I lOSMIPt  = NSAVE  ♦ NEXT  * 1000000 
GO  TO  1171 

196  IF  IJJ-KK)  1962,1962,1961 
1961  JJ  = 1 

IF  IJJ  - KSAVF)  1962,193,1962 

196?  IF  INNFAC1JJ))  197,1901,197 

197  J = 1 

I = NNFACI J J) 

CALL  LOAO 
GO  TO  191 

561  FORMAT (/10X.5MAT  ,F9.1.16H  OATS,  SKIP  NO.  .I3.18H  ARRIVED  AT  PORT 

1 ,12, 35H  TO  JOIN  QUEUE  FOR  FACILITY  TYPE  ,12) 

501  FORMAT  (/1QX.9MAT  ,F5.1,16H  DAYS.  SHIP  NO.  ,I3,15rI  ENTFRING  PORT  , 
112, 11H  FROM  QUiUlEt 

1181  FORMATI/10X.5HAT  .F5.1.16H  DAYS,  SHIP  NO.  .I3.18M  ARRIVFD  AT  PORT 
1 ,12, 22H  SERVICED  AT  FAC.  TYPE, 12,  5H  FOR  « F5.2.5H  O AYS . 12H. FI NA 

2L  VOL  = F6.0,  8H  MT.PCT=  F5.0  ) 

156  FORMAT I///10H  SHIP  NO.  • 15,  IBM  LFAVING  PORT  NO.  . T3,  55H  WITH  N 
10  CARGO  FOR  ASSIGNED  OELIVFRY  TMEATFR.  13  ♦ 

1 753  FORMAT  T///B0H  YOUR  ERROR  IS  THAT  CURRENT  PORT  IS  NOT  ON  SHIP”S  ITT 
1NERARY  IN  TIE  PRESENT  EVFNT  ///) 
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•OFCK  PR  INTI 

SUBROUTINE  PRINT 
COWON 

1 NSTYPE.NNPORT ,NFTYrE,NTHE6,NITIM,TFVAL,TSTOP,NSHlP,ROENTtl2l . 

2 CSTADM(fi) ,CSTTON(A> .PROOUC (6, 6 ,*> ,OTST(3C,30) ,KKTIME(6,6) .TIME, 

3 K EVE NT  (410), N EVENT,  TVFNf .LVCNTl.LVFNTZ.lVENT 3,TnSMIP.KWO»n.*N 
COHN  ON 

1 SPEEO 1251  * CAP ACW (26 ),CAPACV(2S) ,CSTSFA 1251 . CSTPPTI 25) » DRAFT*  25) , 

2 K TRAMS!  26  I ,Af)  JTRN 1 2*5 » • XARSMP!  25 ) . TSHT  P(400 I , I SHTP2C6Q 0)  . 

3 NPITINIIO)  ,NPTTN1I10),NPITN2(10).NTIT  Nit  1 0) ,NTITN?( 10 ) . 
k KPREFH25I,  KPPFF  2(251  *KCHANG(25) 

COHN ON 

1 NFPRTl(*fl  i ,NFPPT2(30),I TMPRTI  30 ) « TOLA  (301*  AO JPRT  1 30  ) » CSTHOL  (30*  * 

2 OFTPRT ( 30 ) ,T T RAN.KFPRT If  30 > ,KFPR T2 (30 ) tAOJRAT ,PRTNAM<30, 2) 

COHH ON 

1 NKARGO,KApGO(4PIO) «I3W*QSTSYS»  NQ1 » NQ2 » NQ3 » NCUEUF » KQUEUE (400 ) « 

2 KGOGN1  (1000) , KG0GN2  ( 100U ) , CGOGN3 ( 1000  I ,KG0GN4  (10001  «NKGOGN«AOJLD  « 

3 AOJCGO ( A > 

COMMON 

1 KARGDL  (3Q»8,6)*NQPnRT(  30 1 . NPRC  AC  ( 30  ♦ 6 ) .KPGSHP  (30.8)  ,TDP0RTI30  » • 

2 KRGGFM3A  « A)  , NP004L  « IOUV, TVOLA  V (25  > » TVOLUS ( 25)  , T VA  V ( ft  , 6 » , TVUS  I 6 , 6 1 
COMMON/A/  ONRNAMI6.2) 

C0MM0N/SEL/IKF(3Q) 

DIMENSION  NTABlfiOO  ),NTA82(100 ) ,NTAR3I 1 00 ) , TTA B4( 100) 

C OMMON/NNT A B/N T A B ( 20 0 I , NT 

DIMENSION  MFACm  ,NTOTYP(A)  , TEMP(6,6) 

COMMON/C/  KRGD ( 40 ) » NP00LM(4d) , NTSTOP 
LVFNTi=Q 
L VFNT  2 = 5 
L VFNT  3 = 0 

TVFNT=TIME*TEVAL 
CALL  PUT 
IF  ( I OUT  I 2.2,3 
3 MR  IT  E ( 6,  10  1 ) 

2 KRGSCB=0 

KBcr,r.n=3 
<RGGCR=0 

no  li  1=1,  a 

4 NT  OT  YP ( 1 1 = o 

MF  = 1 

SAVE  = CSTSYS/1000000. 

IF  (ISWI  5, 1C, 5 

5  MPITF  (6  ,1  02)  TIME 
10  WRITE  (6,103)  TIMF.  SAVF,  NPODL 
1 = 1 

IF  (IKE(l) . Nt , 1)  GOTO  DA 
15  I El  I OUT ) 11,11,12 

11  WRITE  <6,1  3)  I,  IPRTNAKI.K)  »K=1»2  I 

GO  TO  14 

12  WRITE  (6,104)  T,  (POT  NAM ( T , K) , K = i , 2 ) 


271 

272 

273 


r.o  TO  2*5 

20  MR  f T F (6,105)  (ONPNAM  CK.  II  . J=l,21,  (KARGOLCI  « J«KI , 
K = K ♦ 1 

IF  IK  - f I 20.20.2S 

2 5 00  26  K = 1,8 
NF  AC  CM  1 = 0 

00  26  J = 1, 6 

26  NFACCKI  = NFACCKI  ♦ K ARGOL  IT  ,K  , J I 
NTOTAL  = 0 

00  27  K = 1.0 

NT0TYPCK1  = NTOTYPCKl  ♦ NFACCKI 

27  NTOTAL  = NTOTAL  ♦ NFACCKI 

IF  CIOUTI  271,271,27? 

MRITE(6,2761  C NFACCKI,  K=t,*l,  NTOTAL 
00  TO  273 
NRITF  C 6. 1121 


2* 

281 

2*2 

2*3 

29 

291 

292 

293 


C NFACCKI.  K - 1 , A I , NTOTAL 


KRCnCR*  NTOTAL 


KRGOCB= 

ITFMP  = 0 
no  2 A J=1 , A 

ITFHP  = ITFMP  ♦ KRGGFNC I, Jl 
KRGGCB  - KRGGCfi  ♦ I TEMP 
IF  CIOUTI  2*1,281,232 
WRITF(6»2*6I(KRGGFN(I.JI,J=1,*)  , ITFMP 
GO  TO  2*3 
MRITE  16,1131  I 

WRITF  16,1071  CKRGGF  NII.JI , J=  1 ,81 .ITFMP 
ITFMP  = 0 
DO  29  J = 1,8 
ITEMP  = TTFMP  «■  KRGSFPCI.Jl 
KRGSCB  = KRGSCB  ♦ TTEMP 
IFCIOUTI  291,291.292 
MR  I TEC  6, 296 1 (KBGSHP  Cl, Jl , J= 1. 81 . ITEMP 
GO  TO  293 
MRITE  (6, 1061  I 

MRITE  (6,10 71  (KRGSHPCI, Jl , J-1,81  .ITFMP 
MRITE  (6,10*1  T 

MRITE  Cb. 1 0 91  C NPRF AC C I, J 1 . J=1,NFTYPFI 
J=1 


30 

NF  AC  C J I = MOO  C KFPRT1 CII/1000*MJ-11 
J = J ♦ l 

,10001 

IF  C J - 31 

3C.30.35 

36 

NFACCJI  = MODI  KFPRT2CTI/1000** CJ-61 
J = J ♦ 1 

.10001 

IF  CJ  - NFTYPFl 

35,35,60 

60 

IF  CNQUEUFI 

50,70,50 

50 

K = l 

55 

IF  C MOOCKOUEUECKl. 1001  - T 1 

65,60,70 

60 

L * MODC KQUEUECKI / 100000,101 

NF  AC  CL  1 = NFACCL1  ♦ 1 

65 

K = K ♦ 1 

IF  C K - NQUEUF  1 

55,55,70 

70 

IFCIOUTI 

71,71,77 

72 

MRITE 

(6.1101 

I 

MRITE 

(6*1091 

C NFACCJI , J= l.NFTVPEI 

71 

JSAVE 
J = 1 

= 0 

76  JSAVF 

= JSAVE 

♦ NPRF AC ( I » J 1 

.1=1  , Al  .NFACCKI 
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T 


J = J ♦ 1 
IE  (J  - NETVPF) 

*0  SAVE  = JSAVF 

SAVE?  a NRPORT(I) 

IF(SAVE.LE.0. I GO  TO  A6 
SAVE  = (SAVE?  / SAVE)  • 100. 

Af>  IE|SAV£?.LE.O.  ) r.O  TO  A7 
SAVE?  S T QPOR T 1 1 ) / SAVE? 

IE | TOUT ) 870,A7Q,A7l 

A/1  WRITF  (6*111)  T.  SAVE,  SAVE? 

A70  ME  =HF  ♦ 1 

IE  (IWE(MF) ,E«.0>  GOTO  99 
IE  (MEtGT.JO)  GOTO  99 
IE(  I OUT  , L£*  0 ) GO  TO  AA 
WRITE  (6,101) 

AA  T=I*i 

IF  (I.EQ. TKF(ME) ) GOTO  15 
GOTO  A* 

99  IE(IODT)  991,991,99? 

991  WRITE  (6,116)  (NTOTVP(I) ,Ixl« A) 

99?  WRITE  (6,115)  KRGGCB»KRGSCB,KRGOCB 

HIHE  = TIME 
MMIMEsMIME/5 
NPOOL  M(MMT  ME) = NPOOL 
KPGO (HHIME ) sKRGOCB 
N TST  OPaTST  OP 

IF( T0uT.LE.fl)  GO  TO  1000 
WRITF  (6,101) 

WRITE  (6,117) 

1000  OO  lQd  I a 1 ,MSTVPE 
SAVEafl. 

IE(TVOLAV(n.tF,0.)  GO  TO  100 
SAVE  = 100.  • TVOLUS(I)  / T VOL AV( I) 
IFdOUT.LF.O)  GO  TO  Iflg 
WRITF (6, ll A)  I,  SAVE 

100  CONTINUE 

OO  150  T a l.NTMEA 

00  158  J = l.NTMEA 

TEMP ( I, J ) =0, 

IF(TVAV(I,J!.LF.Q.)  GO  TO  150 
TEMP(I.J)  = 100.  * TVUS(I.J)  / TVAV(I.J) 

150  CONTINUE 

IF  (IOltT.LF.Q)  GO  TO  15? 

WRITE (6,11 9) 

no  151  I a l.NTMFA 

151  WRITE(6,1?0)  I,(TEHP(I,J» ,J*1,NTHFA) 

15?  SAVE  = 0. 

SAVE?  a 0. 

WRITE  (6,117) 
no  155  I a 1, NSTVPE 
SAVE  a SAVE  ♦ TVOLUS(I) 

155  SAVE?  a SAVE?  ♦ TVOLAV(I) 

IF(SAVF?.LE.  0.)  GO  TO  156 
SAVE  = 100,  • SAVE/SAVE? 

156  WRITE  (6,116)  SAVE 
WRITE ( 6, 10 1 ) 

00  1561  Ial,NT 


75, 75, AO 


NTABUIMNTAB!  I)/1OOO0OOOQ0 
NTAB2! II =N 00 IN  TAB I 11/10000080,100) 

NTAB3  f I) -H 00 (N TAB (I)/ 10 00 00,  10  0) 

TTA94 ( I) =NOO(N  T AB( I), 10 0000) 

1561  CONTINUE 

IF (IOUT.LF. 0)  CO  TO  156? 

WRITE (6, IS  60) I <NTAB1(J).NTAB2( J),NTAB3!J) ,TTAB4 I J) ) « J=1 .NT ) 

RETURN 
1562  NT=0 

101  FORMAT I1H1 ) 

102  FORMAT (Z//47X, 3HAT  ,F5.1,37H  DAYS,  THE  GAME  FMDFn) 

103  FORMAT  (Z//46X,  33HS  VSTFM  STATUS  AT  ,F5,1«9M  BAY 
1S//26X, 24HCUMULATI VE  SYSTEM  COST  =,F6.3,9H  (MIL  t)  « 10  X, 33HCURRENT 

2 NUMBER  OF  SHIPS  IN  FOOL  =, I4///54X, 31HP  ORT  INFORMATI 

3 0 N) 

104  FORMAT !//49X«25HCARG0  DELIVERED  TO  PORT  ,I2,2X,2A6, 

1 15H  BY  TYPF  (MT ) // 

265X, 10HCARCO  T YPE/ 2flX,5H OWNER*  15X,2H  1.7X.2H  2,7X,?H  3,7X,2H  4,7X 
3,2H  5, 7X*  2H  6,7X,2F  7,7X,2H  B, 6X , 5HT0T AL ) 

105  FORMAT !/?5X,2Ab«6X*BI9« 110) 

106  FORMAT!//  61X,41HTCTAL  AMOUNT  OF  CARGO  SHIPPED  FROM  PORT  ,I2,15H 

1 BY  TYPE  <NT)/3RX.2H  1,7X,2H  2,7X,?H  3.7X.2H  4,7X,?H  >,7X,2H  6,7X 
2, 2H  7, 7X»2H  6,6X,5HT0TAL  I 

107  F ORM  AT  (34V,  81 9,110  I 

10 A FORMAT (//41X,3  7H NUMBER  OF  SHIPS  THAT  HAVE  USED  PORT  ,1?.1AH  BY  F 
1ACILITY  TYPE/55X, ?H  1,SX,2H  2,SX,2H  3, 5X . 2H  4,5X,2H  5,5V,?H  6) 

109  FORMAT (51X, 617) 

110  FORMAT!//  2 9X,  61 HNU  MflER  OF  SHI  PS ( I NCLUDING  THOSF  IN  QUF'JF)  CURRENT 
1LY  AT  PORT  , 12, 18H  BY  FACILITY  TYPE/S5X,2H  1,5X,2H  ?,5X,?H  3,5X. 
22H  4 , 5 X, 2H  5,5  X,  2H  6) 

111  FORMAT!//  30X, 58HPERCENTAGF  OF  SHIPS  THAT  HAD  TO  WAIT  TO  OTSCHARGF 

1 AT  PORT  , t?,SH  = , F5 , 1 , 9H  PER  CENT/  46X.36HMEAN  WAITING  T IMF  0 

2F  THESE  SHIPS  = ,E5.1,7H  DAYS  ) 

112  FORMAT  !/32X,5MT0TAL,6X,8I9,  110) 

113  FORMAT!//  41X.41HT0TAL  AMOUNT  OF  CARGO  GENERATED  AT  PORT  ,I?,15H 

1 BY  TYPE  (MT)/39X,2H  1,7X,2H  2,7X,2M  3,7X,2H  4,7X,2H  5,7X,2H  6,7X 
2 , ?H  7, 7X, 2H  6, 6X,5  FTOTAL  ) 

114  FORMAT  ( 4 0 X,  2H=  , F6.1) 

US  FORMAT!  / , 25X , 12HC ARGO  TOTALS  , 5X,33HT0TAL  AMOUNT  OF  CARGO  GENE 
1RATEO  = I12/42X,33HT0TAL  AMOUNT  OF  CARGO  SHIPPED  = I 1 2/4 2X. 33HT 0 
2TAL  AMOUNT  OF  CARGC  DELIVERED  = 112/  ) 

Ilf  FORMAT!  /4 1 X, 4 0 HCUM UL AT I VF  OELIVERFD  CARGO  BY  TYPF  (MT)/3«X.2H  1, 
17X,2H  2,7X,7H  3, 7X , 2 H 4,7X,2H  S,7X,2H  6,7X,2H  7,7X,2H  A/34X,AI9> 
117  FORMAT!//  ,24X,74HPFR  CENT  OF  SHIP  VOLUME  USEO  BY  NON- IT T NFRARY  SH 
UPS  LFAVING  HOME  THEATER  //) 

X IF  FORMAT  (30  X,  10  HSHIP  TYPE  16,  14H  !iSFD  VOLUME  F6.1) 

119  FORMAT!///, ?5X,74HPFR  CENT  OF  SHIP  VOLUME  USEO  BY  NON- IT T NFRARY  SH 
UPS  LFAVING  HOMF  TMFATER  //4  OX  «1  9HDE  STINATION  THEATFR/  2S  X, 

26H0RIGIN, 6X»1H1,9X, 1H2, 9 X, 1H3, 9 X, 1 H4, 9X , 1 H5 , 9X , 1 H6/26X . 7HTHE ATFR  ) 
120  FORMAT  (2AX, II, 6X,6(F6. 1,4X1  ) 

1 560  FOPMAT (25X^9HSHIP  T YPF, 5X , 1 1 HOR IGI N PORT , 5X , 16 HDFSTIN AT  I ON  PORT,5X 
C,3HETA//(/29X,I?,12X,I2.  17X,I2,  11X,F5,  D) 

13  FORMAT  !/50X,*POPT  *,I2,3X,2A6) 

17  FORMAT! 25 X,*CAP GO  T YPE* » 1 1 X ,* 1* , AX ,*2* , 8X , *3* , AX ,*4* , AX .* 5* . 8 X, * 6 

c*,«x,*7*,nx,*a*) 

274  FORMAT (25X,*T0TAL  OELIVFRED  *,«I9,I10) 

204  FORMAT  (25X,*TOTAL  GENERA  TFD  *,819,110) 
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0ECK  PUT1 

SUBROUTINE  PUT 
COHN ON 

1 NSTVPF.NNPORT .NFTVPE.NT HEA.NITXN.TFVAL.TSTOP, NSHTP, WDFNT ( 121 • 

2 CSTADN(6I , CST TON( fl t , PROUUC ( 6, 6, A) ,OIST( 30.301  .KKTINF ( 6»M .TTMF. 

3 K EVENT  <410 >, NEVFNT  « TVENT, EVENT  1. L VENT  2 , EVENT  3, IOSM IP, KMORO.RN 
COMMON 

1 SPFE0(2  5)  .CAP ACM (25)  ,CAPACV(25t  .CSTSF  A (25»  .CSTPRT  (25)  ,f>»AFT(25), 

2 KTRANS(?5  ),A[?JTRN  (2 5 I , K A RSHP ( 2 5 > , I SHI P ( 4 00  I , ISHIP2(40I), 

3 NPIT INI 10  I .NPITNl (10),NPITN2( 10) .NTITNlt 101 , NTTTN2U0), 

4 KPREF 1(25)  , KPPEF  <(25),<CHANG(25) 

COMNON 

1 NFPRT  H 381 , NFPPT2( 30 ) « I THPRT ( 30 ) « TOLA C3Q  > ,AOJPRT (30 ) .CSTHOL(30 ) . 

2 OFT  PR T( 30 > .TTPAN.KFPRT1 ( 30) ,KFpRT2(30) .AOJRAT .PRTNAN( 30.2) 

COMMON 

1 NKARG C, MARGO (400 01 • ISM. C STS VS, NQ1 .N02. NQ3.NQUEUF ,K QUEUE (400) . 

2 KGOGN1 ( 10  001  * KGOGN? (10001  ,CGOGN3(1000) , KG0GN4  ( 1000  > . NKGOCN.AOJLO. 

3 ADJCGO(B ) 

COMMON 

1 KARGtlKTO.B.G),  NOPORT  (30)  . NPRF AC ( 30 « 6 ) « KPGSHP ( 30 , 8) , T OPORT ( 30 > , 

2 KPGGFN (30  » Ol » SPOOL , IOUT, TV0LAV(25) , TVOLUS( 25) , TVAV( 6,  ft) , TVUS (6.6* 
C CMNON/A / ONRN  AM (6.2) 

TIMFTT  = 10.  * TVFNT 
KTp  = TINFTT 

KTfMP  = (((  LVFNT1* 100  ♦ L VENT  2 ) • 10  ♦ L VENT  3 ) * 1 00001  ♦ KTP 
K = NF  VENT  f l 
NEVENT  = K 

IF  (NEVFNT  - 1 I 3.3.1 

1 v test  = moo(kfvfnt(k-ii. laooai 

IF  (KTEST  - KTP)  2,2,3 

2 KEVENTOO  s KEVFNT(K-l) 

3 KEVENT  (K)  = KTFMP 

°FTURN 

FMn 
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•DECK  OUEUF1 

SURROU  TINE  QUEUE 
COMMON 

1 NSTVPE,NMPORT  . NETV  PE  , NTMEA  . NI  T IN.  TEV  Al_ , TST OP , NSMTP. WOFNT ( 1 2V , 

2 CST  AOM(fi)  »CST  TON  < D 1 .PROOUC  (6,6,  M vRIET  ( 3C • 3u  ) .KKTTMF  (6,6)  , TIME, 

3 K EVE NT (410),  NFVFNT  * TVFNT. L VENT1 ,L VENT  2 , L VENT  3, IHSM T P. KVORO.R K 
COMMON 

1 SPEEO  (251  ,CAPACW(25),CAPACV<25),CSTSEA<25>  ,CS  TPRT  (25)  , 0»  AFT  (25)  . 

2 KTRAWS(25)  , AO JTRN  (25),KARSHP(25)«TSMIP(4CG),ISHIP2(60(j>, 

3 NPITTNI10 I .NPITN1I 10 > , NPITN2( 10* . MTIT N1 ( 10 > . N TT TN2 ( 1 0 » , 

4 KPREFK25I,  KPPFF2  < 25) ,KCHANG(25) 

COMMON 

1 NFPRTinO  t »NFPRT2  <30)»ITHPRT(30),  TOLA  1301*  AOJPRT  t3(J ) ,CS  TMOL  ( 30  ) » 

2 OFTPRT (39  I ,TTRAN,KFPPT1 ff  30  > ,KFPRT2(30 ) « AOJRAT , PPTNAM 130*21 
COMMON 

1 NKARGO.K APGO (6000)  , TSN . CSTSYS . NR1 , NO  2 . NQ3 , NQUEUE, KQUEUF<6 0 0> . 

2 KGOGN II 10 00),  KGOGN 2119001  ,CGOGN3( 10001  .KG0GN6  (1000)  .NKGOGN.AOJLO. 

3 ADJCGOm 
COMMON 

1 KARGOK38  ,8,6>.NOPORT<30 ).NPRFAC<30.6>  ,KRGSHP(30.f)l  ,TOPORT(30)  . 

2 KRGGEN(30»A).  NPOOL.  T OUT. T VOL A V (25)»TVOLUS(25) , TVAV( 6,6) . TVUS <6, 6 ) 
COMMON/A/  ONRN AM (6. 2 ) 

L = NOUEUE 
TF  ( NO 3)  20.1.28 

1 K = 1 

5 LSAVE  = MOO(KQUEUFfM).lOO) 

IF  (LSAVF  - NOl)  3. 4,00 

4 MSAVE  = MOO  (KQUFUE  IM)/1 80088, 10) 

IF  ( MSAVE  - NO  2)  3,  6,3 

3 M = N*1 

TF  (M-L)  6,5  ,99 

6 N03  = KQUEUF(M) 

7 KOUEUE (H)  = KQUFUE  <M*1) 

M = M*1 

IF  (M-L)  7,7,8 

I)  NQUEUE  = NO'.IFlie  1 

GO  TO  90 

20  IF  fLI  21.24.21 

21  I SAVE  = MOO (KQUFUE <LI, 100) 

TF  ( NO  1->LS AVE ) 22.23,26 

22  KQUFUE <L*1 I = Kf)UEUF  (LI 
L = L-l 

GO  TO  20 

23  MSAVF  = MOO  (KQUFUE  (L)/lOBOOO,10) 

IF  (NQ2-MS  AVEI  22.2  4.26 

26  KQUEUE (L*l I = NO  3 

NQUEUE  = NQICUF  #■  1 
NOPORT (NQ1 I = NQPORT (NQ1)  ♦ 1 
99  RETURN 

END 
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'OFCK  I NCI 

SUBROU  TINE  PNC. 

COMMON 

1  NSTrPF.NNPORT  , NF  T VPE.NTHF  A .NI  T I N.  TFVAL  * F STOP,  NSMIP.  BOFNT  1 1 2»  . 

? CSTAON(M  .CSTTONI  A I . PROOUC  (6.  6.M  .01  ST  130.  30  ,titCTTNFIf>,ft»,TIHF, 

3 KFVENMM1  O .NEVFWT,  1 VFNT . L VF NT  1 . L VENT Z . I VE NT 3. IDSH I P. KMORO.R N 
CONN ON 

1 SPEFO  <251 .CAPACN475* .CAPACV I 251 . CSTSF A ( 2 5 > ,CSTP» T J 25  * .nRAFTC 251  . 

2 K TRAMS (75* .AOJTRN  (25  I .KARSHP ( 251 . TSHTP (i.00 * . I SMTP? ( AOP > , 

3 NP1TT  N(1 1 * fNPTTNl 4 10  I «NPI V*7( * 01  * NTT T Ml ( 1 0 > . N (TV N2( 1 0 1 . 

A KPR£Ei(25»,  KPPEE <( 25I.KCHANC(25> 

COMMON 

1 NEPRTldfll  ,Nf PPT2( JOI.ITHPRT  ( 30  > . TOLA  (30  I , AOJPB’t  (30  > .CSTMOL  (3i* » , 

2 OFTPP T(30 » .TTRAN.KFPRT1I30J  .KFPRT  2(301*  AOJBAT » PUTNAM ( 30*2) 

COMMON 

1 NRARC.  C.KAPGO  ( AO0O  ) « ISM. OS T STS  . NQ1.NQ2.  NQ3«N0('£l*r«KQUEUF  (AOO  i . 

? KGOf.N  1 ( 10  0 01  « KGOGN2  1 10  08  ) . CGOGW3  ( 1000  > .KOOGNA  (1000  ) * NKGOGN. ADJLQ. 

3 AOJCGOl At 
COMMON 

1 K ARGDL ( 30  « 8.  6 * • NOPl.'RT  (30).NPRFAC(30.M  . KPGSHP  ( 3(1  • At  . TOPOPT  ( 3 0*  • 

2 KPGGENI30  . 8(  • NPOOL  . I OUT,  T VOL  A V (25)  «TVOLUS(25l  . TVAV  ( ft.  6),  TVUS  (ft.M 
COMMON/A/  ONRNAM(6.2> 

SAVE  = RN  * 37. 

ISAVF  = S4VF 
SAVE1  = rSAVE 
«N  = SAVE  - SAVFt 
PFTURN 
FNO 
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•OECK  TAKE1 

SURROUTINF  TAKE 
COMMON 

1 NSTYPE.NNPORT.NFTYPE.NTMEA.NTTIN.TEVAL.TSTOP.NSMIP.RfiENYClZI  o 

2 CST  AON, (51  ,CSTTt>N(  8)  , PROOUC < 5, 6 , fl > ,niST(30.3(il  .KKTIMF (G.ftl  »T IMF  » 

3 KEVENT  (410  l.MFVENT • TVFWT.>LVENTl.L*ENT2,LF£NTJ,in'';MIP,KWO*D,*N 
COMMON 

1 SPEE0125)  .CAPACNI  251  .CAPACV(2  5»,CSTSEA(25l,CSIPRT<25»,n»AFT(!?5», 

2 K TRANS (25  I .AOJTRN  (?5t.KARSHP(25>  . ISHIPUQO)  • ISHtP?(*90l  • 

3 NPITIN< 101 .NPITNK  10I.MPTTN2(tO> , NT  TT  N1  UO  » , NTITN2  (F J», 
k KPREF 11251 , KPPFF2(25I.KCHANG(25> 

COMMON 

1  NFPRT 1(301 «NFPPT2(30 >» ITHPRT (30 , .TOLA (SCI. AUJPRTI30 I , CSTHOL ( 30 ) * 

? OFTPPT(30 l,TTRAN,KFPRri(30l,KFPRT2(30l , AOJRAT .PRTMAMI 30. 21 

COMMON 

1 NKAROC. KARCOI UP0  0> . ISN.CSTSVS. NQ1 ,NQ?,NQ3 .NCUEUF.K QUEUE (5001 « 

2 K GOGN1  ( 10  3 0 ' . KGOGN2  (1000  I «CGO  GM3  ( 1 000)  * KGOGN5  ( 1 0001  .NKGOGN.  AOJLO. 

J AOJCGO(A) 

COMMON 

1 KARGOL ( 30 . A.5 I .NOPORT (301 .NPRFACA  30.6) .KRGSHf 130.0) . TOPO*T (301. 

2 KRGGEM  31  . (II « NPOOL  » I OUT,  T VOL  A V (251 . TVOLUSt  251  »TVAV ( 6.51 • TCUS  (6.61 
COMMON/A/  ONRN  AM  16,21 

7 KWORO  = KFFENT (HEVENT) 

KE7EI  (NFVFNtl  s 0 
NCV'  4 = N EVENT  - 1 

r*-  = MOCIKMORO. 10000* 

TIKE  = TP  / 10. 

TOSH  IP  = K WORO  / 10000000 
I S MOO(  KWORO  / 100000.  too  I 
IFd.GT.C  .ANO.T.LF.51  GO  TO  12 
WRITE  46.1001  TTME.IOSHIP.T 
100  FORMAT (5K«  FA*  1 .2  (1 X , 151 1 
GO  TO  7 

12  GO  TO  (1.2,3,5,5.51  , I 

1 CALL  MOVF 

2 CALL  PORT 

3 CALI.  CARGFN 
5 CALL  KRGFVL 
5 CALL  PRINT 

GO  TO  7 
5 CALL  rW)GA  M 
RETURN 
CND 
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INITIAL  DISTRIBUTION 


Copies 

1 DDR&E  (H.  Kreiner) 

2 Defense  Logistics  Studies/ 

Info  Exchange 

5 CNO 

1 OP  323 

(Capt.  Christenson' 

1 OP  405 
1 OP  412 
1 OP  962 
1 OP  964 

4 CMC 

1 CMC  LPC 
1 CMC  POR 

1 CMC  RD-1  (A.  Slafkosky) 
1 CMC  RDS-40 

(Col.  N.  Schnippel) 

2 MCDEC  (Lt.  Col.  T.  Wheeler) 

1 MSC  M-6X  (J.A.  Engli  >) 

1 COMANVB  EACHGRU  2 

(Capt.  G.T.  Dyer) 

1 COMOPTEVFOR  732 
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